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UMOVE is a "universal" memory move. It takes 
the block of memory n bytes long at addrl and 
copies it to memory location addr2. JMOVE 
correctly uses either CMOVE or <CM0VE. 

(at compile time) 

(at run time) 

If compiling, the sequence ccc (delimited by 
the trailing M ) is compiled into the dictionary 
as a string: 

I len I c i c I c I ... I c I 
(at compile time) 

(at execution time) 

Takes the string on top of the stack and 
compiles it into the dictionary with the name 
xxx. When xxx is later executed, the address 
of the string is pushed onto the'Stack. 

Reserves space for a string of length n. 

When xxx is later executed, the address of the 
string is pushed onto the stack. 

Takes the string on top of the stack and sends 
it to the current output device. 

Takes the string at second on stack and stores 
it at the address on top of stack. 

Takes $2 and concatenates it with $1, leaving 
$3 at PAD. 

Returns the leftmost "n“ characters of $1 as 
S2. 

Returns the rightmost "n" characters of $1 as 


Returns S2 of length u starting with the nth 
character of SI. 

Returns the length of the specified string. 
Returns the ASCII value of the first character 
of the specified string. 

Compares SI with $2 and returns a status flag. 

Compares two strings on top of the stack. 

Compares two strings on top of the stack. 

Compares two strings on top of the stack. 

As most string operations leave resultant 
strings at PAD, the word SAVES is used to 
temporarily move strings to PAD+512. 

Searches $1 for first occurrence of $2. 

Returns the character position in Si if a 
match is found; otherwise, zero is returned. 
Takes the character "c" and makes it into a 
string of length one and stores it at PAD. 

Takes the double number d and converts it to 
its ASCII representation as S at PAD. 

Takes the single length number n and converts 
it to its ASCII representation as $ at PAD. 
Creates $2 as n cooies of the first character 
of SI. 

s INS has three similar but different functions. 
If n is positive, it accepts a string of n or 
fewer characters from the terminal. If n is 
zero, it accepts up to 255 characters from the 
terminal. If n is negative, it returns only 
after accepting -n characters from the terminal. 
The resultant string is stored at PAD. 

Accepts a string of up to 255 characters from 
the terminal. 

Removes trailing blanks ^om $1 leaving new $2. 
Exchanges the contents of $1 with $2. 


Array Word Glossary 




CVECTOR 


xxx ( n ■ 
xxx:( m ■ 


xxx ( — 

xxx:( m -- addr ) 


(compiling) 
addr j (executing; 

When compiling, creates an array named xxx 
with n 16-bit elements numbered C thru n-1. 
Initial values are undefined. When executing, 
takes an argument, m, off the stack and leaves 
the address of element m of the array, 
xxx ( n -- ) (compiling) 

xxx:( m -- addr ) (executing) 

When compiling, creates a c-array named xxx 
with n 8-bit elements numbered 0 thru n-1. 

Initial values are undefined. When executing, 
takes an argument, m, off the stack and leaves 
the address of element m of the c-array. 
(compiling) 

(executing ) 

When compiling, creates a table named xxx but 
does not allot space. Elements are compiled in 
directly with , (comma). When executing, takes 
one argument, m off the stack and, assuming 
16-bit elements, leaves the address of element 
m of the table. 

xxx ( -- ) (compiling) 

xxx:( m -- addr ) (executing) 

When compiling, creates a c-table named xxx 
but does not allot space. Elements are compiled 
• in directly with C, (c-comma). When executing, 
takes one argument, m off the stack and, assuming 
8-bit elements, leaves the address of element m 
of the c-table. 
nN count .. ) (compiling) 

m -- addr ) (executing) 

When compiling, creates a vector named xxx 
with count 16-bit elements numbered 0-N. nO is 
the initial value of element 0, nN is the 
initial value of element N, and so on. When 
executing, takes one argument, m, off the stack 
and leaves the address of element m on the stack. 
bN count — ) (compiling) 
m — addr ) (executing; 

When compiling, creates a c-vector named xxx 
with count 8-bit elements numbered 0-N. bO is 
the initial value of element 0, bN is the 
initial value of element N, and so on. When 
executing, takes an argument, m, off the stack 
and leaves the address of element m on the stack. 


xxx (nO . 
xxx: ( 


xxx (bO 
xxx: ( 


Double Number Extensions 


DVARIABLE 

xxx ( d — 

xxx:( -- addr ) 

At compile time, creates a double number 
variable xxx with the initial value d. At 
run time, xxx leaves the address of its value 
on the stack. 

DCONSTANT 

xxx ( d -- ) 

xxx:( — d ) 

At compile time, creates a double number 
constant xxx with the initial value d. At 
run time, xxx leaves the value d on the stack. 

D- 

( dl d2 - d3 ) 

Leaves dl-d2=d3. 

D0* 

( d - flag) 

If d is equal to 0. leaves true flag; 
otherwise, leaves false flag. 

D* 

( dl d2 — flag ) 

If dl equals d2, leaves true flag; otherwise, 
leaves false flag. 

D0< 

( d — flag ) 

If d is negative, leaves true flag; otherwise, 
leaves false flag. 

D< 

( dl d2 — flag ) 

If dl is less than d2, leaves true flag; other 
wise, leaves false flag. 

D> 

( dl d2 — flag ) 

If dl is greater than d2, leaves true flag; 
otherwise, leaves false flag. 

DMIN 

( dl d2 - d3 ) 

Leaves the minimum of dl and d2. 

DMAX 

( dl d2 — d3 ) 

Leaves the maximum of dl and d2. 

D>R 

( d - ) 

Sends the double number at top of stack to th« 
return stack. 

DR> 

( - d ) 

Pulls the double number at too of the return 
stack to the stack. 

0, 

( d - ) 

Compiles the double number at top of stack 
into the dictionary. 

DU< 

( udl ud2 — flag ) 

If the unsigned double number udl is less 
than the unsigned double number ud2, leaves a 
true flag; otherwise, leaves a false flag. 

M+ 

( dl n — d2 ) 

Converts n to a double number and then sums 
with dl. 


High Resolution Text Output 


GCINIT 


Initializes the graphic character output 
routines. This must be executed prior to using 
any other hi-res output words. 

GC. 


Displays the single length number n at the 
current hi-res cursor location. 

GC.R 

( nl n2 — ) 

Displays the single length number nl right- 
justified in a field n2 graphic characters 
wide. See .R . 

GCD.R 

( d n - ) 

Displays the double length number d right- 
justified in a field n graphic characters 
wide. See D.R . 

GCEMIT 

( C - ) 

Displays the text character c at the current 
hi-res cursor location. Three special 
characters are interpreted by GCEMIT. 

GCLEN 

( addr n — len ) 

Scans the first n characters at addr and 
returns the number of characters that will 
actually be displayed on screen. 

GCR 


Repositions the hi-res cursor to the beginning 
of the next hi-res text line. See CR . 

GCLS 


Clears the hi-res display and repositions the 
cursor in the upper lefthand corner. 

GCSPACE 


Sends a space tc the graphic character output 
routine. See SPACE . 

GCSPACES 

( n - ) 

Sends n spaces to the graphic character output' 
routine. See SPACES . 

GCTYPE 

( addr n -- ) 

Sends the first n characters at addr to the 
graphic character output routine. See TYPE . 

GC" ccc" 


Sends the character string ccc (delimited by ") 
to the graphic character output routine. 

GCBKS 


Moves the hi-res cursor back one character 
position for overstriking or underlining. 

GCPOS 

( horz vert -- ) 

Positions the hi-res cursor to the coordinates 
specified. Note that the upper lefthand corner 
is 0,0. 


( addr -- ) 

Sends the string found at addr and preceded by 
a count byte to the graphic character output 
routine. See S. . 

SUPER 


Forces the graphic character output routine 
into the superscript mode (or out of the sub¬ 
script mode). See VMI below. May be performed 
within a string by the * character. 

SUB _ 


Forces the graphic character output routine 
into the subscript mode (or out of the super¬ 
script mode). See VMI below. May be performed 
within a string by the v character. 

VMI 


The VMI command sets the number of eighths of 
characters to scroll up or down when either a 
SUPER or SUB command is issued. 

VMI* 

( -- addr ) 

A variable set by VMI. 

OSTRIKE 

( ON or OFF — ) 

If the OSTRIKE option is ON, characters are 
• printed over top of the previous characters 
giving the impression of overstriking. 

GCBAS 

( — addr ) 

A variable which contains the address of the 
character set displayed by GCEMIT. To change 
character sets, simply store the address of 
your new character set into this variable. 

GCLFT 

( — addr ) 

A variable which holds the column position of 
the left margin. 

GCRGT 

( — addr ) 

A variable which holds the column position of 
the right margin. 
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Case Structures 

CASE: structure 

Format: 

CASE: 


CASE Structure 

Format: 

wordname 

CASE 

wordO 

wordl 


SEL Structure 

Format: 


wordname 

wordname 

wordO 



wordl 

SEL 



nl 

-> wordO 

wordN ; 

n2 

-> wordl 


nN 

> wordN 


( NOSEL 

wordnone 


SELEND 



C0ND Structure 



Format: 


wordN 

( NOCASE wordnone ) 
CASENO 


Miscellaneous Utilities 


XR/W 

( *secs addr blk flag — 

LOADS 

( start count -- ) 

THRU 

( start finish -- 

start count 

SEC 

( n - ) 

MSEC 

( n - ) 

H->L 

( nl — n2 ) 

L->H 

( nl - n2 ) 

H/L 

( nl — nl(hi) nl(lo) ) 

BIT 


?B IT 


TBIT 

( nl b — n2 ) 

SBIT 

( nl b — n2 ) 

RBIT 

( nl b — n2 ) 

STICK 

( n -- horz vert ) 

PADDLE 

( nl — n2 ) 

16TIME 


8RND 

( - b ) 

16RND 

( - n ) 

CHOOSE 

( ul - u2 ) 

CSHUFL 

( addr n — ) 

SHUFL 

( addr n — ) 

DUMP 

( addr n — ) 

BXOR 

( addr count b -- ) 

BAND 

( addr count b — ) 

BOR 

( addr count b - ) 

STRIG 

( n — flag ) 

PTRIG 

( n -- flag ) 


CONO 

conditionO « wordsO » 
conditionl « words 1 » 

conditionN « wordsn » 
( NOCOND wordsnone ) 

CONDEND 


) "Extended read-write." The same as R/W except 
that XR/W accepts a sector count for multiple 
sector reads and writes. Starting at address 
addr and block blk, read (flag true) or write 
(flag false) #secs sectors from or to disk. 

Loads count screens starting from screen § 
start. 

Converts two range numbers to a start-count 

Provides an n second delay. Uses a tuned 

Provides an n millisecond delay, (approx) 

Uses a tuned do-loop. 

Moves the high byte ofnl to the low byte and 
zero's the high byte, creating n2. Machine 
code. 

Moves the low byte of nl to the high byte and 
zero's the low byte, creating n2. Machine code. 
Split top of stack into two stack items: 

New top of stack is low byte of old top of 
stack. New second on stack is old top of 
stack with low byte zeroed. 

Creates a number n that has only its bth bit 
set. The bits are numbered 0-15. 

Leaves a true flag if the bth bit of n is set. 
Otherwise leaves a false flag. 

Sets the bth bit of nl, making n2. 

Resets the bth bit of nl, making n2. 

Reads the nth stick (0-3) and resolves the 
setting into horizontal and vertical parts, 
with values from -1 to +1. -1 -1 means up 

and to the left. 

Reads the nlth paddle (0-7) and returns its 
value n2. Machine code. 

Returns a 16 bit timer reading from the system 
clock at locations 19 and 20, decimal. 

Leaves one random byte from the internal 
hardware. Machine code. 

Leaves one random word from the internal 
hardware. Machine code with 20 cycle extra 
delay for rerandomization. 

Randomly choose an unsigned number u2 which 

Randomly rearrange n bytes in memory, start- 

Randomly rearrange n words in memory, start¬ 
ing at address addr. 

Starting at addr, dump at least n bytes (even 
multiple of 8) as ASCII and hex. May be 

Starting at address addr, for count bytes, 
perform bit-wise exclusive OR with byte b at 

Starting at address addr, for count bytes, 
perform bit-wise AND with byte b at each 
address. 

Starting at address addr, for count bytes, 
perform bit-wise OR with byte b at each address. 
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Screen Oriented Video Editor 


Version 1.1 
March 1982 


The FORTH language is a very powerful addition to the Atari home computer. 
Programs which are impossible to write in BASIC {usually because of limitations 
in speed and flexibility) can almost always be written in FORTH. Even when one 
has mastered the BASIC language, making corrections or additions to programs 
can be tedious. The video editor described here removes this problem from 
the FORTH environment. Similar to the MEMO PAD function in the Atari operating 
system, this editor makes it possible to insert and delete entire lines of code, 
insert and delete single characters, toggle between insert and replace modes, 
move entire blocks of text, and much more. 
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Purchasers of this software and documentation package are 
authorized only to make backup or archival copies of the 
software, and only for personal use. Copying the accompanying 
documentation is prohibited. 


Copies of software for distribution may be made only as speci¬ 
fied in the accompanying documentation. 











VALPAR INTERNATIONAL 

Disclaimer of Warranty 
on Computer Programs 


All Valpar International computer programs are distributed 
on an "as is" basis without warranty of any kind. The total 
risk as to the quality and performance of such programs is with 
the purchaser. Should the programs prove defective following 
their purchase, the purchaser and not the manufacturer, distributor, 
or retailer assumes the entire cost of all necessary servicing or 
repair. 

Valpar International shall have no liability or responsibility 
to a purchaser, customer, or any other person or entity with 
respect to any liability, loss, or damage caused directly or 
indirectly by computer programs sold by Valpar International. 

This disclaimer includes but is not limited to any interruption 
of service, loss of business or anticipatory profits or conse¬ 
quential damages resulting from the use or operation of such 
computer programs. 

Defective media (diskettes) will be replaced if diskette(s) 
is returned to Valpar International within 30 days of date of sale 

Defective media (diskettes) which is returned after the 30 day 
sale date will be replaced upon the receipt by Valpar of a $12.00 
Replacement Fee. 
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valFORTH Video Editor 1.1 


This editor is a powerful extension to the valFORTH system designed 
specifically for the Atari 400/800 series of microcomputers. The main purpose 
for this editor is to give the FORTH programmer an easy method of text entry to 
screens for subsequent compilation. The editor has four basic modes of opera¬ 
tion: 

1) It allows entering of new text to a FORTH screen as though 
typing on a regular typewriter. 

2) It allows quick, painless modification of any text with a 
powerful set of single stroke editing commands. 

3} It pinpoints exactly where a compilation error has occurred 
and sets up the editor for immediate correction and 
recompilation. 

4) Given the name of a precompiled word, it locates where the 
original text definition of the word is on disk, if the 
'LOCATOR" option had been selected when the word was compiled. 

The set of single stroke editing commands is a superset of the functions 
found in the MEMO PAD function of the standard Atari operating system. In 
addition to cursor movement, single character insertion/deletion, and line 
insertion/deletion, the editor supports a clear-to-end-of-1ine function, a 
split command which separates a single line into two lines, and a useful insert 
submode usually found only in higher quality word processors. 

In addition, there are provisions for scrolling both forwards and backwards 
through screens, and to save or "forget" any changes made. This is useful at 
times when text is mistakenly modified. 

move, replace, and insert up to 320 lines of text at a time. This feature alone 
allows the FORTH programmer to easily reorganize source code with the added 
benefit of knowing that re-typing mistakes are avoided. Usage has shown that 
once edit-buffer management is learned, significant typing and programming 
time can be saved. 

For those times when not programming, the editor can double as a simple 
word processor for writing letters and filling other documentation needs. 

( The best method for learning how to use this powerful editor is to enter the 
edit mode and try each of the following commands as they are encountered in 
the reading. 

As stated above, there are four ways in which to enter the video editor. 

The following four commands explain each of the possibilities. Note that the 
symbol "<ret>" indicates that the "RETURN" key is to be typed. 
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view screen ( scr# — ) 

To edit a screen for the first time, the "View" command is to be 
used. The video display will enter a 32 character wide mode and will 
be broken into three distinct sections. For example, 

50 V <ret> 

should give something like the display shown in fig. 1. 


Screen #50 U #Bufs: 5 


* ( Example screen ) ( line 0 ) 

: TEST1 ( line 2 ) 

10 0 
DO 

I CR . 

LOOP ; 

: OCTAL ( --- ) 

8 BASE 1 ; 

: +C! 

DUP C@ ROT + 

SWAP C! ; 

( bottom line ) 


Fig. 1 


The top window, composed of a single line, indicates in decimal 
which screen is currently being edited. One should always make a 
practice of checking this screen number to insure that editing will be 
done on the intended screen. Often times, when working with other 
number bases, the wrong screen is called up accidentally and catching 
this mistake early can save time. Also shown is the size of the edit 
buffer (described later). In this example, the buffer is five lines in 
length. This window is known as the heading window. 
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FORTH screens typically are IK (1024 characters) long. Since it is 
impossible to see an entire screen simultaneously, this editor reveals 
only half a screen at a time. There is an "upper" half and a "lower" 
half. In the center of the heading window, either a "U" or an "L" 

Is displayed indicating which half of the current screen is being viewed. 
If the valFORTH system is in the half-K screen mode, neither "U" nor "L" 
is displayed since an entire half-K screen can be viewed at one time. 

In figure 1, the upper half of a full-K screen is being viewed. 

The second window (the text window) contains the text found on the 
specified screen. This window is 32 characters wide and 16 lines high. 
The white cursor (indicated by the symbol "a") will be in the upper- 
lefthand corner of the screen awaiting editing commands. 

The final five-line window found at the bottom of the screen is 
known as the buffer window. This is used for advanced editing and is 
described in greater detail in the section entitled "Buffer Management." 


re-edit last screen 

This command is used to re-edit the "Last" screen edited. It 
functions identically to the "V" command described above, except no 
screen number is specified. 

<ret> (re-edit screen 50) 


WHERE find location of error 

If, when compiling code, a compilation error occurs, the WHERE 
command will enter the edit mode and position the cursor over the last 
letter of the offending word. The word can then be fixed and the screen 
can be re-compiled. Bear in mind that using the WHERE command prior to 
any occurrence of an error could give strange results. 


locate definition cccc ( — ) 

Once source text has been compiled into the dictionary, it loses 
easy readability to all but experts of the FORTH language. Often times, 
though, it is helpful to see what the original source code was. The 
DECOMP command found in the debugger helps tremendously in this regard, 
however, some structures such as IF and DO are still difficult to follow. 
For this reason, the LOCATE command is included with the editor. 

This command accepts a word name, and if at all possible it will 
actually direct the editor to load in the screen where that word was 
defined. This is very helpful at times when one cannot remember where 
the original text was. If the screen shown in figure 1 were loaded and 
the command 

.LOCATE +C! <ret> 

were given, the editor would call up screen 50 and position the cursor 
over the word which is the beginning of the definition for "+CI". 
Typically, the LOCATE command will point to , "CODE" , "CONSTANT" , 
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There is a drawback to this feature, however. In order to call up 
any word, the LOCATE command must know where the word actually is. 
Normally, when a word is compiled, there is no way of knowing where it 
was loaded from. Thus for the LOCATE command to work, each time a word 
is entered into the dictionary, three extra bytes of memory must be used 
to store this lookup information. For an application with many words, 
these extra bytes per word add up quickly, and this is not always 
desirable. For this reason, the LOCATOR command (described below) 
allows the user to enable or disable the storage of this lookup informa¬ 
tion. Only words that were compiled with the LOCATOR option selected 
can be located. If a word cannot be located, the user is warned, or if 
the DEBUGGER is loaded, the word is DECOMPed giving pseudo original code. 



LOCATOR enable/disable location ( ON/OFF — ) 

In order for a word to be locatable using LOCATE, the LOCATOR option 
must have been selected prior to compiling the word. The LOCATOR option 
is selected by executing "ON LOCATOR" and deselected by executing "OFF 
LOCATOR". For example: 


ON LOCATOR 

♦" = " + • > (partial view of a screen) 

: STAR 42 EMIT ; 

OFF LOCATOR 
: NEGATE MINUS ; 


Only the words PLUS and STAR can be located. NEGATE cannot be located 
since the LOCATOR option was disabled. If the DEBUGGER were loaded, 
NEGATE would be decompiled (see the debugger), otherwise, the user would 
be given a warning. The default value for LOCATOR is OFF. 



#BUFS set buffer length ( Clines — ) 

The #BUFS command allows the user to specify the length (in terms of 
number of lines) of the special edit storage buffer. The power of the 
edit buffer lies in the number of lines that can be stored in it. 

Although the default value is five, practice shows that at least 16 
lines should be set aside for this buffer. The maximum number of lines 
allowable is 320which is enough to hold20full screens simultaneously. 
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The following sections give a detailed description of all commands which 
the video editor recognizes. A quick reference command list can be found 
following these descriptions. 

Cursor Movement 

When the edit mode is first entered via the "V" command, a cursor is placed 
in the upper lefthand corner of the screen. It should appear as a white block 
and may enclose a black letter. Whenever any key is typed and it is not recog¬ 
nized as an editor command, it is placed in the text window where the cursor 
appears. Likewise, any line functions (such as delete line) work on the line 
where the cursor is found. 


Ctrl a , Ctrlv, Ctrl <, Ctrl > move-cursor commands 

To change the current edit line or character, one of four commands 
may be given. These are known as cursor commands. They are the four 
keys with arrows on them. These keys move the cursor in the direction 
specified by the arrow on the particular key pressed. There are times, 
however, when this is not the case. 

If the current cursor line is the topmost line of the text window, 
and the "cursor-up" command is issued (by simultaneously typing "ctrl" 
and "up-arrow"), the cursor will move to the bottom line of the text 
window. Likewise, a subsequent "cursor-down" command would return the 
cursor to the topmost line of the window. Similarly, if the cursor is 
positioned on the leftmost edge and the "cursor-left" command is given, 
the cursor will "wrap" to the rightmost character ON THE SAME LINE. 

Issuing "cursor-right" will wrap back to the first character on that line. 


next-line command 

Normally, the RETURN key positions the cursor on the first character 
of the next line. If RETURN is pressed when the cursor is on the last 
line of the text window (i.e., when the last text line of the screen is 
current), the cursor is positioned in the upper lefthand corner of the 
screen. 


tabulate command 

The TAB key is used to tabulate to the next fixed four column 
tabular stop to the right of the current cursor character. TABbing off 
the end of the current line simply places the cursor at the beginning of 
that same line. 


NOTE: 


Many commands in the editor will "mark" a current FORTH screen as updated 
so that any changes made can be preserved on disk. As simple cursor movement 
does not change the text window in any way, these commands never mark the 
current FORTH screen. See the section on screen management for more informa¬ 
tion. 
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Editing Commands 

Editing commands are those commands which modify the text in some 
predefined manner and mark the current FORTH screen as updated for later 
saving. 


character insert command 

When the "insert-character" command is given, a blank character 
is inserted at the current cursor location. The current character and 
all characters to the right are pushed to the right by one character 
position. The last character of the line "falls off”' the end and is 
lost. . The inserted blank then becomes the current cursor character. 
This is the logical complement to the "delete-character" command 
described below. 


delete character command 

When the ’deiete-character" command is issued, the current cursor 
character is removed, and all characters to the right of the current 
cursor character are moved left one position, thus giving a "squeeze" 
effect. This is normally called "closing" a line. 'The rightmost 
character on the line (which was vacated) is replaced with a blank. 

This serves as the logical complement to the "insert-command" described 
above. 


shift INS line insert command 

The "line-insert" command inserts a blank line between the current 
cursor line and the line immediately above it. The current line and all 
lines below it are moved down one line to make room for the new line. 

The last line on the screen falls off the bottom and is lost. If this 
command is accidentally typed, the "oops" command (ctrl-0) described 
later can be used to recover from the mistake. Also see the "from buffer" 
command described in the section on buffer management for a similar command 
I his command serves as the logical complement to the "line-delete" command 
described below. 


line delete command 

The "line-delete" command deletes the current cursor line. All 

ine and a blank' line 

til is the vacated bottom line of the text window. The deleted line is 
lost. If this command is accidentally issued, recovery can be made by 
issuing the "oops" command (ctrl-0) described later. Also see the 
"to-buffer" command described in the section on buffer management for a 
similar conmand. The "delete-line" command serves as the logical comple¬ 
ment to the "1 ine-insert" cormiand. 
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erase to end of line 

The "Hack" command performs a clear-to-end-of-1ine function. The 
current cursor character and all characters to the right of it on the 
current line are blank filled. All characters blanked are lost. The 
"oops" command described later can be used to recover from an accidentally 
hacked line. 


Ctrl I insert/replace toggle 

In normal operation, any key typed which is not recognized by the 
editor as a control command will replace the current cursor character 
with itself. This is the standard replace mode. Normally, if one 
wanted to insert a character at the current cursor location, the insert 
character command would have to be issued before any text could be 
entered. If inserting many characters, this is cumbersome. 

When active, the insert submode automatically makes room for any 
new characters or words and frees the user from having to worry about 
this. When the editor is called up via the "V" command, the insert mode 
is deactivated. Issuing the insert toggle command will activate it and 
the cursor will blink, indicating that the insert mode is on. Issuing 
the command a second time will deactivate the insert mode and restore 
the editor to the replace rode. Note that while in the insert mode, all 
edit commands (except BACKS, below) function as before. 


delete previous character 

The BACKS key behaves in two different ways, depending upon whether 
the editor is in the insert mode or in the replace mode. When issued 
while in the replace mode, the cursor is backed up one position and the 
new current character is replaced with a blank. If the cursor is at the 
beginning of the 1ine, the cursor does not move, but the cursor character 
is still replaced with a blank. 

If the editor is in the insert mode, the cursor backs up one 
position, then deletes the new current cursor character and then closes 
the line. If the cursor is at the beginning of the line, the cursor 
remains in the same position, the cursor character is deleted and the 
line closed. 


NOTE: 


As all of the above commands modify the text window in some manner, the 
screen is marked as having been changed. This is to be sure that all changes 
made are eventually saved on disk. The "quit" command described in the section 
on changing screens allows one to unmark a screen so that major mistakes need 
not be saved. 
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Buffer Management 

Much of the utility of the valFORTH editor lies in its ability to tempo¬ 
rarily save text in a visible buffer. To aid the user, it is possible to 
temporarily send text to the buffer and to later retrieve it. This storage 
buffer can hold as many as 320lines of text simultaneously. This buffer is 
viewed through a 5 line "peephole" visible as the last window on the screen. 
Using this buffer, it is possible to duplicate, move, and easily reorganize 
text, in addition to temporarily saving a line that is about to be edited so 
that the original form can be viewed or restored if necessary. The following 
section will explain exactly how to accomplish each of these actions. 


Ctrl I to buffer command 

The "to-buffer" command deletes the current cursor line, but 
unlike the "delete-line" command where the line is lost, this command 
moves the "peephole" down and copies the line to the bottom line of the 
visible buffer window. This line is the current buffer line. The buffer 
is rolled upon each occurrence of this command so that it may be used 
repeatedly without the loss of stored text. 

For example, if the cursor is positioned on line eight of the display 
shown in figure 1 and the "to-buffer" command is issued twice, the final 
result will be as shown in figure 2. 


Ctrl F from buffer command 

The "from-buffer" command does exactly the opposite of the "to- 
buffer" command described above. It takes the current buffer line and 
inserts it between the current cursor line and the line above it. The 
cursor line and all lines below it are moved down one line with the last 
line of the text window being lost. If the cursor were placed on line 14 
of the above screen display and the "from-buffer" command were issued once 
the display in figure 3 would result. 
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Current: 
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Screen #50 U #Bufs: 5 


Current: 


( Example screen } ( line 0 ) 

: TEST1 ( line 2 ) 

10 0 
DO 

I CR . 

LOOP ; 


+C! 

DUP C@ ROT + 
SWAP C! ; 

8 BASE ! ; 


( bottom line ) 


line was 
rolled to 
the top 

8 BASE ! ; 


Current: 

: OCTAL 




fig. 3 

If the “from-buffer" command is issued again, t 
through 15 of the text window would look like: 

Current: 

: OCTAL 

8 BASE ! ; 

( ... ) 

( bottom Tine ) 



fig.' 4 


Note that a block of text has been moved on the screen. Larger 
blocks of text can be moved in the same manner. . 
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Ctrl K copy to buffer command 

The "copy-to-buffer" command takes the current cursor line and 
duplicates it, sending the copy to the buffer. This commands functions 
identically to the "to-buffer" command described above, except that the 
current cursor line is NOT deleted from the text window. 


ctrl U - copy from buffer 

The "copy-from-buffer" command replaces the current cursor line with 
the current buffer line. This command functions identically to the "from- 
buffer" command described above, except that the buffer line is not inserted 
into the text window, it merely replaces the current cursor line. The 
"oops" command described below can be used to recover from accidental 
usage of this command. 


Ctrl R 


roll buffer 


The "roll-buffer" command moves the buffer "peephole" down one line 
and redisplays the visible window. If the buffer were the minimum five 
lines in length, the bottom four lines in the window would move up a line 
and the top line would "wrap" to the bottom and become the current buffer 
line. If there were more than five buffer lines, the bottom four lines 
would move up a line, the topmost line would be pushed up behind the 
peephole, and a new buffer line coming up from below the peephole would 
be displayed and made current. For example, if the buffer were five lines 
long and contained: 


Current: 



Who? 



What? 






Where? 



Why? 



Fig. 5 


the "roll-buffer" command gives: 


Current: 



What? 

) 


When? 


( 

Where? 



Why? 



Who? 
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ctr] B back-rol1-buffer command 

The "back-roll-buffer" does exactly the opposite of the "roll- 
buffer" command described above. For example, if given the buffer in 
figure 6 above, the "back-roll" command would give the buffer shown in 
figure 5. 


Ctrl C clear buffer line command 

The "clear-buffer-line" command clears the current buffer line and 
then "back-rolls" the buffer so that successive clears can be used to 
erase the entire buffer. 


NOTE: 


Any of the above commands which change the text window will mark the 
current screen as updated. Those commands which alter only the buffer window 
(such as the "roll" command) will not change the status of the current screen. 
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Changing Screens 

There are four ways in which to leave a FORTH screen. These four methods 
are: moving to a previous screen, moving to a following screen, saving the 
current screen and exiting, or simply aborting the edit session. The four 
commands allowing this are now described: 


Ctrl P previous screen command 

The "previous-screen" command has two basic functions. If the lower 
part of the current screen is being viewed in the text window, this 
command simply displays the upper portion of the screen. If the upper 
portion is already being viewed, then the "previous-screen" cosmiand saves 
any changes made to the current screen and then loads in the screen 
immediately before the current screen. The lower part of the screen 
will then be displayed. If in the half-K screen mode, however, this 
command simply changes screens. 


Ctrl N next screen command 

Like the "previous-screen" command described above, the "next-screen" 
command also has two basic functions. If the upper part of a screen is 
being viewed, this command simply displays the lower portion. If, on the 
other hand, the lower part of the screen is being edited, any changes made 
to the current screen are saved and the next screen is loaded. 


Ctrl S save command 

The "save" command saves any changes made to the current screen and 
exits the edit mode. The video screen is cleared, and the number of the 
screen just being edited is displayed for reference. Note that it is 
usually a good idea to immediately FLUSH {described in the section on 
screen management below) any unsaved screens. 


Ctrl Q quit command 

The "quit" command aborts the edit session "forgetting" any changes 
made to the text visible in the text window. Changes made on previously 
edited screens will NOT be forgotten. The "quit" command is usually 
used when either the wrong screen has been called up, or if it becomes 
desirable to start over and re-edit the screen again. 



va]FORTH Video Editor 1.1 


Special Commands 

There are four special commands in this editor which allow greater flexi¬ 
bility in programming on the valFORTH system: 


ESCAPE special key command 

The "special-key" command instructs the video editor to ignore 
any command function of the key typed next and force a character to the 
screen. For example, normally when "ctrl >" is typed, the cursor is 
moved right. By typing "ESCAPE Ctrl >" the cursor is not moved -- 
rather, the right-arrow is displayed. 


Ctrl A arrow command 

When dealing with FORTH screens, it is often necessary to put the 
FORTH word (pronounced "next screen") or the Val FORTH word "==>" 

(pronounced "next screen") or the ValFORTH word "==>" (pronounced "next 
half-K screen”) at the end of a screen for chaining a long set of words 
together. This command automatically places, or erases, an arrow in the 
lower right hand corner of the text window. If is already there, 

it is replaced with "*'=>". If "==>" is found, it is erased. (This 
command marks the screen as updated.) 


Ctrl J 


split line command 


Often times, for formatting reasons, it is necessary to "split" a 
line into two lines. The split 1ine command takes all characters to the 
left of the cursor and creates the first line, and with the remaining 
characters of the original line, a second line is created. Graphically, 
this looks like: 

before: 


after: | The quick* 

Since a line is inserted, the bottom line of the text window is lost. 
Using the "oops" command below, however, this can be recovered. 
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0 


oops command 


Occasionally, a line is inserted or deleted accidentally, half a 
line cleared by mistake, or some other major editing blunder is made. 
As the name implies, the "oops" command corrects most of these major 
editing errors. The "oops" command can be used to recover from the 
following commands: 


1) insert line command 

2) delete line command 

3) hack command 

4) to buffer command 

5) from buffer command 

6) copy from buffer command 

7) split line command 


(shift INS) 
(shift DEL) 
(ctrl H) 
(ctrl T) 
(ctrl F) 
(ctrl U) 
(ctrl J) 
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Screen Management 

In addition to the commands available while in the edit mode, there are 
several other commands which are for use outside of the edit mode. Typically, 
these commands deal with entire screens at a time. 


FLUSH ( — ) 

When any changes are made to the current text window, the current 
screen is marked as having been changed. When leaving the edit mode 
using the "save" command, the current screen is sent to a set of internal 
FORTH buffers. These buffers are not written to disk until needed for 
other data. Thus, if no other screen is ever accessed, the buffers will 
never be saved to disk. The FLUSH command forces these buffers to be 
saved if they have been marked as being modified. 

Example: FLUSH <ret> 


EMPTY-BUFFERS ( ___ ) 

Occasionally, screens are modified temporarily or by accident, and 
get marked as being modified. The EMPTY-BUFFERS command unmarks the 
internal FORTH buffers and fills them with zeroes so that "bad" data are 
not saved to disk. Zero filling the buffers ensures that the next access 
to a ny or the screens that were in the buffers will load the 
unadulterated copy from disk. The abbreviation MTB is included in the 
valFORTH system to make the use of this command easier. 

Examples: EMPTY-BUFFERS 

<ret> 


COPY 


( from to — ) 


To duplicate a screen, the COPY command is used. The screen "from" 
is copied to the screen "to" but not flushed. 


Example: 

(Copies screen 51 to screen 60.) 


CLEAR { S cr# — ) 

The CLEAR command fills the specified screen with blanks so that a 
clean edit can be started. The screen is then made current so that the 

(Clears screen 50 and makes it current.) 
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( scr# #screens — ) 

The CLEARS command is used to clear blocks of screens at a time. 
After user verification, it starts with the specified screen and clears 
the specified number of consecutive screens. The first screen cleared 
is made current so that the L command can be used to enter the edit mode. 

Example: 25 3 CLEARS <ret> 

Clear from SCR 25 

to SCR 27 <Y/N> Y 

(Screens 25-27 are cleared. Screen 25 is made current.) 


SMOVE ( from to #screens — ) 

The SMOVE command is a multiple screen copy coranand used for copying 
large numbers of consecutive screens at a time. User verification is 
required by this command to avoid disastrous loss of data. All screens 
to be copied are read into available memory and the user is prompted 
to initiate the copy. This allows the swapping of disks between moves 
to make disk transfers possible. The number of screens the SMOVE command 
can copy at a time is limited only by available memory. 

Example: 50 60 5 SMOVE <ret> 

SMOVE from 50 thru 54 

to 60 thru 64 <Y/N> Y 
Insert source <RETURN> <ret> 

Insert dest. <RETURN> <ret> 

(Transfers the specified screens.) 


XI-17 



valFORTH Video Editor 1.1 


Editor Command Summary 

Below is a quick reference list of all the commands which the video editor 
recognizes. 


Entering the Edit Mode: 


(executed outside of the edit mode) 


V ( scr# — ) 

Enter the edit mode and view the 
specified screen. 


( ... ) 

Re-view the current screen. 


WHERE ( ... ) 

Enter the edit mode and position the 
cursor over the word that caused a 
compilation error. 


LOCATE cccc (■ — ) 

Enter the edit mode and position the 
cursor over the word defining "cccc". 


LOCATOR ( ON/OFF — ) 

When ON, allows all words compiled until 
the next OFF to be locatable using the 
LOCATE command above. 


( #lines — ) 

Sets the length (in lines) of the storage 
buffer. The default is five. 


#BUFS 
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Cursor Movement: 

(issued within the edit mode) 

Ctrl a 

Move cursor up one line, wrapping to the bottom 
line if moved off the top. 

Ctrl v 

Move cursor down one line, wrapping to the top 
line if moved off the bottom. 

Ctrl « 

Move cursor left one character, wrapping to the 
right edge if moved off the left. 

Ctrl > 

Move cursor right one character, wrapping to the 
left edge if moved off the right. 

RETURN 

Position the cursor at the beginning of the next 
line. 

TAB 

Advance to next tabular column. 

Editing Commands: 

(issued within the edit mode) 

Ctrl INS 

Insert one blank at cursor location, losing the 
last character on the line. 

Ctrl DEL 

Delete character under cursor, closing the line. 

shift INS 

Insert blank line above current line, losing the 
last line on the screen. 

shift DEL 

Delete current cursor line, closing the screen. 

Ctrl I 

Toggle insert-mode/replace-mode, (see full 
description of ctrl-I). 

BACKS 

Delete last character typed, if on the same line 
as the cursor. 

Ctrl H 

Erase to end of line (Hack). 
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Buffer Management: 

(issued within the edit mode) 

Ctrl T 

Delete current cursor line sending it to the 
edit buffer for later use. 

Ctrl F 

Take the current buffer line and insert it 
above the current cursor line. 

Ctrl K 

Copy current cursor line sending it to the 
edit buffer for later use. 

Ctrl U 

Take the current buffer line and copy it to the 
current cursor line. 

Ctrl R 

Roll the buffer making the next buffer line 
current. 

Ctrl B 

Roll the buffer backwards making the previous 
buffer line on the screen current. 

Ctrl C 

Clear the current buffer line and perform 
a ctrl-B. 


Note: The current buffer line is last line visible on the video display 


Changing Screens: 

(issued within the edit mode) 

Ctrl P 

Display the previous screen saving all changes 
made to the current text window. 

Ctrl N 

Display the next screen saving all changes made 
to the current text window. 

Ctrl S 

i 

Save the changes made to the current text window 
and end the edit' session. 

Ctrl Q 

Quit the edit session forgetting all changes 
made to current text window. 

Special Keys: 

(issued within the edit mode) 

ESC 

Do not interpret the next key typed as any of 
the commands above. Send it directly to the 
screen instead. 

Ctrl A 

Put "==>", or erase the lower right-hand 

corner of the text window. 

Ctrl J 

Split the current line into two lines at the 
point where the cursor is. 

Ctrl 0 

Corrects any major editing blunders. 
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Screen Management: 

(executed outside of the edit mode) 

FLUSH 

Save any updated FORTH screens to disk. 

EMPTY-BUFFERS 

Forget any changes made to any screens not 
yet FLUSHed to disk. Used in "losing" major 
editing mistakes. The abbreviation MTB is 
more commonly used. 

COPY 

( from to — ) 

Copies screen #from to screen #to. 

CLEAR 

( scr# — ) 

Blank fills specified screen. This performs 
the same functions as "WIPE" in Leo Brodie's 
book. 

CLEARS 

( scr# #screens — ) 
Blank fills the specified number of screens 
starting with screen scr#. 

SMOVE 

( from to #screens --- ) 
Duplicate the specified number of screens 

Starting with screen number "from". Allows 
swapping of disks before saving screens to 
screen number "to". 



The following collection of words describes the string utilities of the 
valFORTH Utilities Package. Strings have been implemented in the FORTH 
language in many different ways. Most implementations set aside space for a 
third stack — a string stack. As strings are entered, they are moved (using 
CMOVE) to this stack. When strings are manipulated on this stack, many long 
memory moves are usually required. This method is typically much slower than 
the method implemented in valFORTH. 

Rather than waste memory space with a third stack, valFORTH uses the 
already existing parameter stack. Unlike the implementation described above, 
valFORTH does not store strings on the stack. Rather, it stores the addresses 
of where^the strings can be found.* Using this method, words such as SWAP , 
DUP^ , PICK , and ROLL can be used to manipulate strings. Routines such as 
string sorts which work on many strings at a time are typically much faster 
since addresses are manipulated rather than long strings. In practice, we 
have found few if any problems using this method of string representation. 


String Glossary 

For the purposes of this section, a string is defined to be a sequence 
of up to 255 characters preceded by a byte indicating its length. The first 
character of the string is referenced as character one. If the length of the 
string is zero, it has no characters and is called the "null" string. In 
stack notation, strings are represented by the symbol $ and the address of the 
string is stored on the stack rather than the string itself*. 


-TEXT addrl n addr2 -- flag 

The word -TEXT compares n characters ataddressl with n characters 
at address2. Returns a false flag if the sequences match, true if they 
don’t. Flag is positive if the character sequence at addressl is alpha¬ 
betically greater than the one at address2. Flag is zero if the 
character sequences match, and is negative if the character sequence at 
addressl is alphabetically less than the one at address2. 

-NUMBER addr — d 

-NUMBER functions identically to the standard FORTH word NUMBER 
with the only difference being that -NUMBER does not abort program 
execution upon an illegal conversion. -NUMBER takes the character string 
at addr and attempts to convert it to a double number. On successful 
conversion, the value d is returned with the status variable NFLG set 
to one. On unsuccessful conversion, a double number zero is returned 
with the variable NFLG set to zero. -NUMBER is pronounced "not number". 


*Representing strings on the stack by their addresses is a very useful concept 
borrowed from MMS Forth (TRS-80), authored by Tom Dowling, and available from 
Miller Microcomputer Services, 617-653-6136. 
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NFLG 


— addr 

A variable used by -NUMBER that indicates whether the last conversion 
attempted was successful. NFLG is true if the conversion was successful; 
otherwise, it is false. 

UMOVE addrl addr2 n — 

UMOVE is a "universal" memory move. It takes the block.of memory 
n bytes long at addrl and copies it to memory location addr2. UMOVE 
correctly uses either CMOVE or cCMOVE so that when a block of memory is 
moved onto part of itself, no data are destroyed. 

cccc" — (at compile time) 

cccc: -- addr (at run time) 

If compiling, the sequence cccc (delimited by the trailing ") is 
compiled into the dictionary as a string: 

I Ten | c | c i c I... I cl 

All valFORTH strings are represented in this fashion. Since a single 
byte is used to store the length, a maximum string length of 255 is 
allowed. A string with 0 length is called a "null" string. At 
execution time, " puts the address in memory where the string is 
located onto the stack. 

Note that " is IMMEDIATE. When executed outside of a colon 
definition, the string is not compiled into the dictionary, but 
is stored at PAD instead. 

Example: " This is a string" 

$C0NSTANT cccc $ — (at compile time) 

cccc: 

Takes the string on top of the stack and compiles it into the 
dictionary with the name cccc. When cccc is later executed, the 
address of the string is pushed onto the stack. 

Example: " Ready? <Y/N> " $C0NSTANT VERIFY 

SVARIABLE cccc 
cccc: 

Reserves space for a string of length n. When cccc is later 
executed, the address of the string is pushed onto the stack. 

Example: 80 $VARIABLE TEXTLINE 

$. $ - 

Takes the string on top of the stack and sends it to the current 
output device. 

Example: 

Takes the stores it at the address 

on top of stack. 

Example: " Store me!" TEXTLINE $! 
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$+ $1 $2 -- $3 

Takes $2 and concatenates it with $1, leaving S3 at PAD. 

Example: " Santa " SCONSTANT 1ST 

" Claus" SCONSTANT LAST 
1ST LAST $+ 

$. <ret> Santa Claus 

LEFTS $1 n — $2 

Returns the leftmost "n" characters of $1 as $2. $2 is stored 

at PAD. 

Example: " They" 3 LEFTS $. <ret> The 

RIGHTS $1 n — $2 

Returns the rightmost "n" characters of $1 as $2. $2 is stored 

at PAD. 

Example: " mother" 5 RIGHTS $. <ret> other 

MID$ $1 n u -- $2 

Returns $2 of length u starting with the nth character of $1. 
Recall that the first character of a string is numbered as one. 
Example: " Timeout" 3 2 MID$ $. <ret> me 

LEN $ — Ten 

Returns the length of the specified string. 

ASC $ — c 

Returns the ASCII value of the first character of the specified 
string. 

SCOMPARE SI $2 — flag 

Compares $1 with $2 and returns a status flag. The flag is 

a) positive if Si is greater than $2 or is equal to $2, but longer, 

b) zero if the strings match and are the same length, and c) negative 
if $1 less than S2 or if they are equal and Si is shorter than $2. 

$= $1 $2 — flag 

Compares two strings on top of the stack and returns a status 
flag. The flag is true if the strings match and are equal in length, 
otherwise it is false. 

S< $1 $2 -- flag 

Compares two strings on top of the stack and returns a status 
flag. The flag is true if SI is less than $2 or if $1 matches $2 but 
is shorter in length. 

S> $1 S2 - flag 

Compares two strings on top of the stack and returns a status 
flag. The flag is true if Si is greater than $2 or if $1 matches $2 
but is longer in length. 


SAVES $1 -- $2 

As most string operations leave resultant strings at PAD, the word 
SAVES is used to temporarily move strings to PAD+512 so that they can 
be manipulated without being altered in the process. 

Example: " Wash" SAVES 11 ington" $+ 


XI1-3 



INSTR 


$1 $2 — n 

Searches $1 for first occurrence of $2. Returns the character 
position in $1 if a match is found; otherwise, zero is returned. 

Example: " FDCBA" $C0NSTANT GRADES 

GRADES " A" INSTR 1- . <ret> 4 

CHR$ c — $ 

Takes the character "c" and makes it into a string of length one 
and stores it at PAD. 

DVAL $ — d 

Takes numerical string $ and converts it to a double length number. 
The variable NFLG is true if the conversion is successful, otherwise it 
is false. See -NUMBER above. 

Example: " 123" DVAL D. <ret> 123 


VAL $ - n 

Takes the numerical string $ and converts it to a single length 
number. 1 he variable NFLG is true if the conversion is successful, 
otherwise it is false. See -NUMBER above. 

DSTR$ d - $ 

lakes the double number d and converts it to its ASCII representa¬ 
tion as $ at PAD. 

Example: 123 DSTR$ $. <ret> 123 

STR$ n — $ 

Takes the single length number n and converts it to its ASCII 
representation as $ at PAD. 

STRINGS n $1 - S2 

Creates $2 as n copies of the first character of $1. 

#IN$ n - $ 

#IN$ has three similar but different functions. If n is positive, 
it accepts a string of n or fewer characters from the terminal. If n is 
zero, it accepts up to 255 characters from the terminal. If n is nega¬ 
tive, it returns only after accepting -n characters from the terminal. 
The resultant string is stored at PAD. 

INS — S 

Accepts a string of up to 255 characters from the terminal. 

S-TB $1 - $2 

Removes trailing blanks from $1 leaving new $2. 

$XCHG $1 - $ 2 

Exchanges the contents of $1 with $2. 
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ARRAYS and their COUSINS 


All of the words described below create structures that are accessed in the 
same way, i.e., by putting the index or indices on the stack and then typing 
the structure's name. The differences are in the ways the structures are 
created. 

The concept of the array should be known from BASIC. While in fig-FORTH 
there is no standard way to implement arrays and similar structures, there 
does exist a general consensus about how this should be done. 

The point on which there is the most divergence of opinion is whether the 
first element in an array should be referred to by the index 0 or 1. We 
select 0 for the first index since this gives much cleaner code and makes 
more sense than 1 after you get used to it. (We've worked with it both ways.) 

ARRAY and CARRAY, and 2ARRAY and 2CARRAY 

The size of an array, specified when it is defined, is the number of elements 
in the array. In other words, an array defined by 

8 ARRAY BINGO 

will have 8 elements numbered 0-7. 

To access an element of an array, do 
n array-name 

to get the address of the nth element on the stack. (You will not be told 
if the number n is not a legitimate index number for the array.) For example, 

5 BINGO 

will leave the address of element number 5 in BINGO on the stack. You can 
store to or fetch from this address as you require. 

The word CARRAY defines a byte or character array. A c-array works the same 
as an array, except that you must use C@ and C! to manipulate single elements, 
rather than @ and !. 

The words 2ARRAY and 2CARRAY each take two numbers during definition of a 
2ARRAY or 2CARRAY, and 2ARRAYS and 2CARRAYS take two numbers to access an 
element. Note that when using a 2CARRAY named, say, CHESSBOARD, and a constant 
named ROOK, the two phrases 

ROOK 4 6 CHESSBOARD C! 

and 

ROOK 6 4 CHESSBOARD C! 

don't do the same thing. Also note that the phrase 
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8 8 2CARRAY CHESSBOARD 

defines a 2CARRAY of 8 x 8 = 64 elements, with both indices running from 0 to 
7. 

When an ARRAY or a CARRAY is defined, the initial values of the elements 
are undefined. 

TABLE AND CTABLE 

A cousin of ARRAY is TABLE. Example: The phrase 
TABLE THISLIST 14 , 18 , -34 , 16 , 

defines a table THISLIST of 4 elements. (The commas above are part of the 
code and must be included.) The number of elements does not have to be 
specified. The elements in THISLIST are accessed using the indices 0-3, 
the same as if it had been defined as an array. The word CTABLE works 
similarly, though using C, instead of , to compile in the numbers. Note that 
negatives won't be compiled in by a C, since in two's complement representation 
negative numbers always occupy the maximum number of bytes. 

VECTOR and CVECTOR 

The last array-type words in this package are CVECTOR and VECTOR. Vector is 
just another name for a list. These words are used when the elements of the 
array you want to create are on the stack, with the last element on top of the 
stack. You just put the number of elements on the stack and the VECTOR or 
CVECTOR, and the name you want to use. Example: 

-3 8 127 899 -43 5 VECTOR POSITIONS 

creates an array named POSITIONS with 5 elements 0-4. with -3 in element 0 
and -43 in element 4. CVECTOR works in a similar way. 


EXAMPLES: 


2 3 BINGO 

Stores the value 2 into element 3 of array BINGO. 


2 THISLIST 

Will leave the value in element 2 of table THISLIST. 
According to the definition of THISLIST above, this value 
will be -34. 


3 


POSITION @ . <cr> 899 



ARRAY WORD GLOSSARY 


ARRAY cccc, n — (compiling) 

cccc: m -- addr (executing) 

When compiling, creates an array named cccc with n 16-bit elements numbered 0 
thru n-1. Initial values are undefined. When executing, takes an argument, 
m, off the stack and leaves the address of element m of the array. 

CARRAY cccc, n -- (compiling) 

cccc: m -- addr (executing) 

When compi1ing, creates a c-array named cccc with n 8-bit elements numbered 
0 thru n-1. Initial values are undefined. When executing, takes an argument, 
m, off the stack and leaves the address of element m of the c-array. 

TABLE cccc, — (compiling) 
cccc: m — addr (executing) 

When compiling, creates a table named cccc but does not allot space. Elements 
are compiled in directly with , (comma). When executing, takes one argument, 
m off the stack and, assuming 16-bit elements, leaves the address of element 
m of the table. 


CTABLE cccc, 
cccc: 

When compiling, 
are compiled in 
m off the stack 
of the c-table. 


(compiling) 
m — addr (executing) 

creates a c-table named cccc but does not allot space. Elements 
directly with C, (c~comma). When executing, takes one argument, 
and, assuming 8-bit elements, leaves the address of element m 


X! nO ... nN count addr -- 

Stores count 16-bit words, nO thru nN into memory starting at addr, with nO 
going into addr. Pronounced "extended store." 


XC! bO ... bN count addr — 

Stores count 8-bit words, bO thru bN into memory starting at addr, with bO 
going into addr. Pronounced "extended c-store." 

VECTOR cccc, nO ... nN count — (compiling) 

cccc: m -- addr (executing) 

When compiling, creates a vector named cccc with count 16-bit elements 
numbered 0-N. nO is the initial value of element 0, nN is the initial value 
of element N, and so on. When executing, takes one argument, m, off the stack 
and leaves the address of element m on the stack. 


CVECTOR cccc, bO ... bN count — (compiling) 
cccc: m — addr (executing) 

When compiling, creates a c-vector named cccc with count 8-bit elements 
numbered 0-N. bO is the initial value of element 0, bN is the initial value 
of element N, and so on. When executing, takes an argument, m, off the stack 
and leaves the address of element m on the stack. 


CASE STRUCTURES 


It often becomes necessary to make many tests upon a single number. 
Typically, this is accomplished by using a series of nested "DUP test IF" 
statements followed by a series of ENDIFs to terminate the IFs. This is 
arduous and very wasteful of memory. valFORTH contains four very .powerful 
Pascal-type CASE statements which ease programming and conserve memory. 


The CASE: structure 


Format: 


CASE: wordname 
wordO 
wordl 

wordN ; 


The word CASE: creates words that expect a number from 0 to 
N on the stack. If the number is zero, wordO is executed; if the 
number is one, the wordl is executed; and so on. No error checks are 
made to ensure that the case number is a legal value. 

Example: 


: ZERO Zero" ; 

: ONE One" ; 

: TWO 

CASE: NUM 
ZERO 
ONE 

TWO ; 

0 NUM <ret> Zero 

1 NUM <ret> One 

2 NUM <ret> Two 

Note that any other number (e.g. 3 NUM) will crash the system. 
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The CASE Structure 


Format: 

: wordname 

CASE 

wordO 

wordl 

wordN 

( NOCASE wordnone ) (optional) 

CASEND 


The CASE...CASEND structure is always used within a colon 
definition. Like CASE: above, it requires a number from 
0 and N. However, unlike CASE: above* boundary checks are made 
so that an illegal case will do nothing. If the optional NOCASE 
clause is included then wordnone is executed if an "out of bounds" 
number is used. 

Examples: 

I) : ZERO ." Zero" ; 

: ONE ." One" ; 

: TWO Two" ; 

: CHECKSUM ( n — ) 

CASE 

ZERO 

ONE 

TWO 

CASEND ; 

0 CHECKNUM <ret> Zero 

1 CHECKNUM <ret> One 

999 CHECKNUM <ret> (nothing happens) 

2 CHECKNUM <ret> Two 
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II) 


: GRADEA 

A" ; 

: GRADEB 

B" ; 

: GRADEC 

C" ; 

: GRADED 

D" ; 

: OTHER 

Failed" 


DECIMAL 

: GETGRADE ( — ) 

KEY 65 - (Convert A to 0, B to 1, etc) 

CASE 
GRADEA 
GRADEB 
GRADEC 
GRADED 

NOCASE OTHER 
CASEND ; 


GETGRADE creturn and press A> A 
GETGRADE <return and press B> B 
GETGRADE creturn and press F> Failed 
GETGRADE creturn and press D> D 


The SEL Structure 


Format: 


: wordname 
SEL 

nl -> wordO 
n2 -> wordl 

nN > wordN 
( NOSEL wordnone 
SELEND 


(Select) 


(optional) 
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The SEI-SELEND structure is used when the "selection" numbers 

(ni etc.) are not sequential. This structure is somewhat slower than 
either CASE or.CASE: , but is much more general. SEL is typically 
used in operations such as table driver menus where single keystroke 
commands are used. The valFORTH video editor uses the SEL structure 
to implement the many editing keystroke commands. 


Example: 


NICKEL 

." nickel." ; 

DIME 

dime." ; 

QUARTER 

." quarter." ; 

4BITS 

." fifty cent piece." 

SUSANB 

." dollar" ; 

BAD$$$ 

." wooden nickel." ; 



: MONEY-NAME ( n — ) 

." That is called a " 

SEL 

5 -> NICKEL 
10 -> DIME 
25 -> QUARTER 
50 -> 4BITS 
100 -> SUSANB 

NOSEL BAD$$$ ( this line is optional ) 

SELEND ; 


5 MONEY-NAME <ret> That is called a nickel. 

33 MONEY-NAME <ret> That is called a wooden nickel. 

25 MONEY-NAME <ret> That is called a quarter. 


The COND Structure 


Format: 


wordname 




COND 

conditionO 

« 

words0 

» 

conditionl 

« 

words1 

» 

conditionN 

« 

wordsn 

» 


( NOCOND wordsnone ) (optional) 

CONDEND 
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Unlike the three previous CASE structures which test for equality, 
the COND structure bases its selection upon any true conditional test 
(e.g. if n > 0 then...) COND can also be used for range cases. The 
NOCOND clause is optional and is only executed if no other condition 
passes. Only the code of the first condition that passes will be 
executed. 

Example: 

: EXAM 
COND 
90 >= 

80 >= 

70 >= 

60 >= 

NOCOND ." 

CONDEND ; 

Note that neither « nor » are needed (nor allowed) around the 
"NOCOND" case. Also note that more than one word can be executed 
between the « and » . 


( score -- grade ) 


« 

." Grade 

of A" 

4 

» 

« 

Grade 

of B" 

3 

» 

« 

." Grade 

of C" 

2 

» 

« 

Grade 

of D" 

1 

» 

Not 

too good" 

0 
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(intentionally left blank) 



DOUBLE NUMBER EXTENSIONS 


The following words extend the set of double number words to be as nearly 
identical as possible to the set in the book Starting FORTH . The exceptions 
are DVARIABLE and DCONSTANT which conform to the FIG standard by expecting 
initial values on the stack. 

All of the single number operations comparable to the double number operations 
below were machine coded; all of the words below (with the exception of DVARIABLE) 
have high-level run time code and so are considerably slower than their single 
number counterparts. 


DOUBLE NUMBER EXTENSION GLOSSARY 

DVARIABLE cccc d — 

cccc: -- addr 

At compile time, creates a double number variable cccc with the initial value d. 
At run time, cccc leaves the address of its value on the stack. 

DCONSTANT cccc d — 

cccc: 

At compile time, creates a double number constant cccc with the initial value d. 
At run time, cccc leaves the value d on the stack. 

0 . — 0 . 

A double number constant equal to double number zero. 

1 . - 1 . 

A double number constant equal to double number one. 

D- dl d2 — d3 

Leaves dl-d2=d3. 

D0= d -- flag 

If d is equal to 0. leaves true flag; otherwise, leaves false flag. 

D= dl d2 — flag 

If dl equals d2, leaves true flag; otherwise, leaves false flag. 

D0< d — flag 

If d is negative, leaves true flag; otherwise, leaves false flag. 

D< dl d2 — flag 

If dl is less than d2, leaves true flag; otherwise, leaves false flag. 

D> dl d2 — flag 

If dl is greater than d2, leaves true flag; otherwise, leaves false flag. 
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DMIN dl d2 — d3 

Leaves the minimum of dl and d2. 

DMAX dl d2 — d3 

Leaves the maximum of dl and d2. 

D>R d — 

Sends the double number at top of stack to the return stack. 

DR> — d 

Pulls the double number at top of the return stack to the stack. 


D, d — 

Compiles the double number at top of stack into the dictionary. 

DU< udl ud2 - flag 

If the unsigned double number udl is less than the unsigned double number ud2, 
leaves a true flag; otherwise, leaves a false flag. 

M+ dl n -- d2 

Converts n to a double number and then sums with dl. 
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HIGH RESOLUTION TEXT OUTPUT 



Occasionally, the need arises to print text in high resolution graphic 
displays {8 OR.). The following set of words explains how Graphic Characters 
can be used in valFORTH programs. The Graphic-Character output routines are 
designed to function identically to the standard FORTH output operations. 
There is an invisible cursor on the high resolution page which always points 
to where the next graphic-character will be printed. As with normal text 
output, this cursor can be repositioned at any time and in various ways. 
Because of the nature of hi-res printing, this cursor can also be moved 
vertically by partial characters. This allows for super/subscripting, over¬ 
striking, and underlining. Multiple character fonts on the same line are 
also possible. 


GCINIT 

Initializes the graphic character output routines. This must be 
executed prior to using any other hi-res output words. 

GC. n — 

Displays the single length number n at the current hi-res cursor 
location. 


GC.R nl n2 -- 

Displays the single length number nl right-justified in a field 
n2 .graphic characters wide. See .R . 

GCD.R d n — 

Displays the double length number d right-justified in a field n 
graphic characters wide. See D.R . 

GCEMIT c — 

Displays the text character c at the current hi-res cursor location. 
Three special characters are interpreted by GCEMIT . The up arrow (t) 
forces text output into the superscript mode; the down arrow (^) forces 
the text into the subscript mode; and the left arrow (<-) performs a 
GCBKS command (described below). See OSTRIKE below; also see EMIT. 

GCLEN addr n — Ten 

Scans the first n characters at addr and returns the number of 
characters that will actually be displayed on screen. This is typically 
used to find the true length of a string that contains any of the non¬ 
printing special characters described in GCEMIT above. Used principally 
to aid in centering text, etc. 


GCR 


Repositions the hi-res cursor to the beginning of the next hi-res 
text line. See CR . 


GCLS 


Clears the hi-res display and repositions the cursor in the upper 
lefthand corner. 
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GCSPACE 


Sends a space to the graphic character output routine. See SPACE . 

GCSPACES n 

Sends n spaces to the graphic character output routine. See SPACES . 

GCTYPE addr n - 

Sends the first n characters at addr to the graphic character output 
routine. See TYPE . 

GC" cccc" 

Sends the character string cccc (delimited by ") to the graphic 
character output routine. If in the execution mode, this action is 
taken immediately. If in the compile mode, the character string is 
compiled into the dictionary and printed out only when executed in 
the word that uses it. See ." . 


GCBKS 

Moves the hi-res cursor back one character position for overstriking 
or underlining. 

GCPOS 

Positions the hi-res cursor to the coordinates specified. Note 
that the upper lefthand corner is 0,0. 

GC$. 

Sends the string found at addr and preceded by a count byte to the 
graphic character output routine. See $. . 

SUPER 

Forces the graphic character output routine into the superscript 
mode (or out of the subscript mode). See VMI below. May be performed 
within a string by the a character. 

SUB 

Forces the graphic character output routine into the subscript 
mode (or out of the superscript mode). See VMI below. May be performed 
within a string by the v character. 

VMI n — 

Each character is eight bytes tall. The VMI command sets the number 
of eighths of characters to scroll up or down when either a SUPER or SUB 
command is issued. Normally, 4 VMI is used to scroll.4/8 or half a 
character in either direction. 

VMI# — addr 

A variable set -by VMI. 

OSTRIKE ON or OFF — 

The GCEMIT command has two separate functions. If OSTRIKE (overstrike) 
option is OFF, the character output will replace the character at the 
current cursor position. This is the normal method of output. If the 
OSTRIKE option is ON, the new character is printed over top of the previous 
character giving the impression of an overstrike. This allows the user to 
underline text and create new characters: Example: To do underline, a 
value of, say, 2 should be used with VMI, and then the * character added 
in the string before the underline character. 
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GCBAS 


-- addr 

A variable which contains the address of the character set displayed 
by GCEMIT. To change character sets, simply store the address of your 
new character set into this variable. 

GCLFT -- addr 

A variable which holds the column position of the left margin. 
Normally two, this can be changed to obtain a different display window. 

GCRGT — addr 

A variable which holds the column position of the right margin. 
Normally 39, this can be changed to obtain a different display window. 


(intentionally left blank) 
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MISCELLANEOUS UTILITIES 


This is a grab-bag of useful words. Here they are... 


XR/W #secs addr blk flag -- 

"Extended read-write." The same as R/W except that XR/W accepts a sector 
count for multiple sector reads and writes. Starting at address addr and 
block blk, read (flag true) or write (flag false) #secs sectors from or to 
disk. 

SMOVE org des count — 

Move count screens from screen # org to screen # dest. 

The primary disk rearranging word, also used for moving sequences of screens 
between disks. This is a smart routine that uses all memory available below 
the current GR.-generated display list, with prompts for verification and 
disk swap if desired. See valFORTH Editor 1.1 documentation for further details. 

LOADS start count — 

Loads count screens starting from screen # start. This word is used if you 
want to use words that are not chained together by —> 's. It will stop 
loading if a CONSOLE button is held down when the routine finishes loading 
its present screen. 

THRU start finish — start count 

Converts two range numbers to a start-count format. Example: 

120 130 THRU PLISTS 
will print screens 120 thru 130. 

SEC n — 

Provides an n second delay. Uses a tuned do-loop. 

MSEC n — 

Provides an n millisecond delay, (approx) 

Uses a tuned do-loop. 

H->L n — b 

Moves the high byte of n to the low byte and zero's the high byte, creating 
b. Machine code. 


L->H nl — n2 

Moves the low byte of nl to the high byte and zero's the low byte, creating 
n2. Machine code. 

H/L nl -- nl(hi) nl(lo) 

Split top of stack into two stack items: New top of stack is low byte of old 
top of stack. New second on stack is old top of stack with low byte zeroed. 
Example: HEX 1234 H/L .S <cr> 1200 0034 
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BIT b — n 

Creates a number n that has only its bth bit set. The bits are numbered 0-15, 
with zero the least significant. Machine code. 

?B IT n b — f 

Leaves a true flag if the bth bit of n is set. Otherwise leaves a false flag. 
TBIT nl b — n2 

Toggles the bth bit of nl, making n2. 

SBIT nl b — n2 

Sets the bth bit of nl, making n2. 

RBIT nl b — n2 

Resets the bth bit of nl, making n2. 

STICK n -- horiz vert 

Reads the nth stick (0-3) and resolves the setting into horizontal and 
vertical parts, with values from -1 to +1. -l -i means up and to the left, 

PADDLE nl - n2 

Reads the nlth paddle (0-7) and returns its value n2. Machine code. 

ATTRACT f — 

If the flag is true, the attract mode is initiated. If the flag is false, 
the attract mode is terminated. 

NXTATR 

If the system is in the attract mode, this command cycles to the next color 
setup in the attract sequence. Disturbs the timer looked at by 16TIME. 

HLDATR 

If the system is in attract mode, zero's fast byte of the system timer so 
that attract won't cycle to next color setup for at least four seconds 
or until system timer is changed, say by NXTATR. Disturbs the timer looked 
at by 16TIME. 

16TIME — n 

Returns a 16 bit timer reading from the system clock at locations 19 and 20, 
decimal. This clock is updated 60 times per second, with the fast byte in 
20. Machine code, not fooled by carry. 

8RND — b 

Leaves one random byte from the internal hardware. Machine code. 

16RND — n 

Leaves one random word from the internal hardware. Machine code with 20 
cycle extra delay for rerandomization. 

CHOOSE ul — u2 

Randomly choose an unsigned number u2 which is less than ul. 
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CSHUFL addr n — 

Randomly rearrange n bytes in memory, starting at address addr. 

Pronounced "c-shuffle." 

SHUFL addr n — 

Randomly rearrange n words in memory, starting at address addr. Pronounced 
"shuffle." SHUFL may also be used to shuffle items directly on the stack by 
doing SP@ n SHUFL. 

H, n -- 

See DEBUG Glossary. 

A. addr — 

Print the ASCII character at addr, or if not printable, print a period. 

(Used by DUMP). 

DUMP addr n -- 

Starting at addr, dump at least n bytes (even multiple of 8) as ASCII and 
hex. May be exited early by pressing a CONSOLE button. 

BLKOP system use only 

BXOR addr count b — 

Starting at address addr, for .count bytes, perform bit-wise exclusive or 
with byte b at each address. Useful for toggling an area of display memory 
to inverse video or a different color, and for other purposes. For instance, 
in 0 GR., do 


DCX 88 @ 280 128 BXOR 


Then do Shift-Clear to clear the screen. Pronounced "block ex or." 


BAND addr count b -- 

Starting at address addr, for count bytes, perform bit-wise AND with byte b 
at each address. Applications similar to BXOR. 

Pronounced "block and." 

BOR addr count b - 

Starting at address addr, for count bytes, perform bit-wise or with byte b 
at each address. Applications similar to BXOR. 

Pronounced "block or." 


STRIG n — flag 

Reads the button of Joystick n (0-3). Leaves a true flag if the button is 
pressed, a false flag if it isn't. 



PTRIG n -- flag 

Reads the button of paddle n (0-7). Leaves a true flag if the button is 
pressed, a false flag if it isn't. 
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TRANSIENTS 


One of the more annoying parts about common releases of FORTH concerns the 
FORTH machine code assemblers. On the positive side, FORTH-based assemblers 
can be extraordinarily smart and easy to use interactively, and can compile 
on the fly as you type, rather than in multiple-pass fashion. (The 6502 
assembler provided with valFORTH is a good example of a smart, structured, 
FORTH-based assembler.) On the other hand, since the assembler loads into 
the dictonary one usually sacrifices between 3 and 4K of memory on a utility 
that is only a compilation aid, and is not used during execution. With the 
utility described below, however, you can use the assembler and then remove 
it from the dictionary when you're finished with it. 

In the directory of the Utilities/Editor disk (screen 170) you will find a 
heading of Transients. Loading this screen brings in three words: TRANSIENT, 
PERMANENT, and DISPOSE, and a few variables. It also defines a new area of 
memory called the Transient area. This area is used to load utilities like 
the assembler, certain parts of case statements, and similar constructs, that 
have one characteristic in common: They have compile-time behavior only, and 
are not used at run-time. An example will help make clear the sequence of 
operations. You may recall that on the valFORTH disk, in order to load float¬ 
ing point words you needed the assembler. Let's make a disk that has floating 
point but no assembler: 

* Boot your valFORTH disk. It can be the bare system, or your normal program¬ 
ing disk if it doesn't have the assembler already in it. 

* Insert your Utilities/Editor disk, find the Transient section in the 
directory, and load it. 

* Do MTB (EMPTY-BUFFERS) and swap in your valFORTH disk. (It is a VERY good 

idea to get into the habit of doing MTB before swapping disks.) Find the 
assembler in the directory, but before you load it, do TRANSIENT to cause it 

to be loaded into the transient dictionary area, in high memory. Now go ahead 

and load the assembler. When it is loaded, do PERMANENT so that the next 
entries will go into the permanent dictionary area, which is back where you 
started. 

* Now find and load the floating point words. 

* Finally, do DISPOSE to pinch off the links that tie the transient area 

(with the assembler in it) to the permanent dictionary, with the floating 
point words in it. Do a VLIST or two to prove it to yourself. (Note that 
there are about a half-dozen words in the assembler vocabulary in the kernel. 
These were in the dictionary on boot up and are not affected by DISPOSE.) 

You can derive great benefit from the simple recipe above, and if you study 
the Transient code a bit, you may learn even more. We offer several comments: 
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* In the case of the above recipe, you didn't actually have to do PERMANENT 
and TRANSIENT because the assembler source code checks at the front to see if 
TRANSIENT exists, and does it if so. At the end if checks to see if PERMANENT 
exists, and does it if so. 'This conditional execution is accomplished with 
the valFORTH construct 

'( )( ) 

which is described in val FORTH documentation. Take a look at the assembler 
source code to see how this is done. 

* If you want to do assembly on more than one section of code, you needn't 
DISPOSE until you really finished with the assembler; or, if you have DISPOSED 
of the assembler, you can bring it back in later without harm, by the same 
method. You can also code high-level definitions, and then more assembly 
code, and so on, and only do DISPOSE when you were finished. Be sure to do 
DISPOSE before SAVE or AUTO, however, because either your system will crash 

or your SAVE'd or AUTO'd program won't work. 

ihe situation is slightly different with "case" words, since if you bring 
them in more than once you'll get duplicate names on the run-time words like 
\SEL), (CASE) and CASE:, which uses extra space and defeats the purpose of 
Transients. 

* If you use the Transient structures for otherpurposes, remember only to 
send code that is not used at run-time to the transient area. As an example 
of this distinction, look at the code for the "case" words on the valFORTH 

) construct is again used, but that some of 
the parts of the case constructs, for instance (SEL), stay in the permanent 
dictionary. That is because (SEL) actually ends up in the compiled code, 
while SEL does not. 

Look at the beginning of the code for the Transient structures, and notice 
that the Transient area has been set up 4000 bytes below the display list. 

(ihe byte just below the display list in normal modes is pointed to by memory 
location 741 decimal, courtesy of the Atari OS.) This is usually a good place 
if only the 0 Graphics mode is used. (8 GR., for example, will over-write 
this area, crashing the system.) After DISPOSE is executed, this area is 
freed for other purposes. If you want to use a different area for Transients, 
just substitute your address into the source code on the appropriate screen. 
Remember that you must leave enough room for whatever will go into the Transient 
dictionary, and that NOTHING else must write to the area until you have cleared 
it out with DISPOSE. (This includes SMOVE, DISKC0PY1, DISKC0PY2, etc.) 

****** j\|Qj£ ***** fs|0TE ***** NOTE ***** NOTE ***** NOTE ****** 

In the above example, 4000 bytes have been set aside for the Transient area 
just below the 0 GR. display list. This amount of memory will generally hold 
the assembler and some case statement compiling words. REMEMBER that if you 
have relocated the buffers (see the section on Relocating Buffers) to this 
area as well, you will have a collision, and a crashed system in short order. 

To cure this, simply locate the Transient area 2113 bytes lower in memory so 
that there will be no overlap. 

****** NOTE ***** NOTE ***** NOTE ***** NOTE ***** NOTE ****** 
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Screen; 36 

0 ( Transient 5 : setup 
i BASE 0 DCX 


S cre en: 39 

0 
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3 HERE 

4 

5 

6 

7 

8 
9 


741 0 4000 - DP ! 

( SUGGESTED PLACEMENT OF TAREA ) 
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7 

8 
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10 

HERE 

CONSTANT 

TAREA 

10 

1 1 
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VARIABLE 

TP 

11 

12 

1 

VARIABLE 

TPFLAG 

12 

13 


VARIABLE 

OLDDP 

13 

14 




14 

15 




==> 15 


Screen: 37 


Scr< 

0 ( 

Xsients: TRANSIENT 

PERMANENT ) 
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1 



1 

£ : 

TRANSIENT 

< — ) 

£ 


TPFLAG 0 NOT 



4 

IF HERE OLDDP ! TP 

0 DP ! 

4 

5 

1 TPFLAG ! 



6 

ENDIF ; 


6 

7 



7 

8 : 

PERMANENT 

( — ) 

8 

9 

TPFLAG 0 


9 

10 

IF HERE TP 1 OLDDP 

0 DP ! 

10 

11 

0 TPFLAG ! 


11 

12 

ENDIF ; 


12 

13 



13 

14 



14 

15 


—> 

15 


Screen: 38 

0 ( Transients: DISPOSE ) 

1 : DISPOSE PERMANENT 
£ CR ." Disposing..." VOC-LINK 

3 BEGIN DUP 0 53279 C! 

4 BEGIN 0 DUP TAREA U< 

5 UNTIL DUP ROT ! DUP 0= 

6 UNTIL DROP VOC-LINK 0 

7 BEGIN DUP 4 - 

8 BEGIN DUP 0 53279 C! 

9 BEGIN PFA LFA 0 DUP TAREA U< 

10 UNTIL 

11 DUP ROT PFA LFA ! DUP 0= 

12 UNTIL DROP 0 DUP 0= 

13 UNTIL DROP [COMPILE!] FORTH 

14 DEFINITIONS . " Done" CR ; 

15 PERMANENT BASE ! 
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7 
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11 
12 

13 

14 

15 



XC! X ! 
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0 < Utils: r CARRAY ARRAY ) 

1 BASE © HEX 

2 : CARRAY ( cccc, n — ) 

3 CREATE SMUDGE ( cccc: n — a ) 

4 ALLOT 


5 

; CODE 

CA C, CA 

c, 

18 C, 

6 

A5 C, 

W C, 69 

c, 

02 C, 

7 

00 C, 

98 C, 65 

C, 

W 1+ C 

8 

95 C, 

01 C, 4C 

C, 


9 

’ + < 

CFA © > , 

c 



10 

11 : ARRAY ( cccc, n — ) 

12 CREATE SMUDGE ( cccc: n — a ) 

13 2* ALLOT 

14 ;CODE 16 C, 00 C, 36 C, 01 C, 

15 4C C, ’ CARRAY 08 + , C; ==> 
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0 ( Utils: 

1 

2 : XC i ( n0. . . nrn 

3 OVER 1- + >R 0 

4 DO J I - C! 

5 LOOP R> DROP ; 

6 . 

7 : X ! ( n0. . . nrn cnt addr — ) 

8 OVER 1- 2* + >R 0 

9 DO J I 2* - ! 

10 LOOP R> DROP ; 

11 

12 < Caution: Remember limitation 

13 < on stack size of 30 values 

14 ( because of OS conflict. ) 

15 —> 
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0 < Utils: CTABLE TABLE ) 

1 

2 : CTABLE ( cccc, — ) 

3 CREATE SMUDGE < cccc: n — a ) 

4 ;CODE 

5 4C C, ’ CARRAY 08 + , C; 

6 

7 : TABLE ( cccc, — ) 

8 CREATE SMUDGE ( cccc: n — a ) 

9 ;CODE 

10 4C C, ’ ARRAY 0A + , C; 

11 
12 

13 

14 

15 —> 
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0 < Utils: CVECTOR VECTOR ) 

1 

2 : CVECTOR ( cccc, cnt -- ) 

3 CREATE SMUDGE < cccc: n — a ) 

4 HERE OVER ALLOT XC' 

5 5 CODE 

4C C, ’ CARRAY 08 + , C; 

8 : VECTOR < cccc, cnt — ) 

9 CREATE SMUDGE ( cccc: n — a ) 

10 HERE OVER 2* ALLOT X! 

11 ;CODE 

12 4C C, ’ ARRAY 0A + , C; 

13 

14 

15 BASE ! 
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0 < Utils: 2CARRAY 2ARRAY 
1 


Screen: 
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: 2CARRAY < cccc, 

n n — 

) 

2 

3 

<BUILDS ( cccc: 

r» r* — 

a ) 


4 

SWAP DUP , * ALLOT 



4 

5 

DOES) 



5 

6 

DUP >R © * + R) + 

2+ ; 


6 

7 




7 

8 

: 2ARRAY ( cccc. 

ri n — 

) 

8 

9 

<BUILDS ( cccc: 

n n — 

a ) 

9 

10 

SWAP DUP , * 2* ALLOT 


10 


11 DOES) 

12 DUP )R © * + 2* R) +2+ 


11 


13 

14 

15 


13 

14 


47 
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0 ( Utils: HIDCHR NOKEY CURSOR) 

1 BASE @ DCX 

2 

3 ’ ( CASE )< 28 KLOAD ) 

4 

5 : HIDCHR ( — ) 

6 65535 94 ! ; 

7 

8 : NOKEY ( — ) 

9 255 764 C! ; ) 

10 

11 : CURSOR ( f — ) 

12 0= 752 C! 

13 28 EMIT 29 EMIT ; 

14 

15 ==> 
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0 ( Utils: Y/N -RETURN RETURN ) 
1 

2 : Y/N < — f ) 

3 ." <Y/N> " -Y/N DUP 

4 IF 89 ELSE 78 ENDIF 

5 EMIT SPACE ; 

6 

7 : -RETURN ( — ) 

8 BEGIN KEY 155 = UNTIL ; 

9 

10 : RETURN ( — ) 

11 ." (RETURN) " -RETURN ; 

12 

13 

14 

15 BASE 1 
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0 < Utils: INKEY* ) 

1 DCX 


2 

: (INKEY*) 




< 

c 

-) 

o 

702 C! NOKEY 





4 







5 

: INKEY* 
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— 

- C ) 

6 

764 C@ 







7 

COND 







8 

252 = 

< < 

11 

28 

(INKEY*) 

0 

> > 

9 

191 > 

< < 

0 

> > 




10 

188 = 

< < 
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> > 




11 

124 = 

< < 

64 

(INKEY*) 

0 

> > 

12 

60 = 

< < 


0 

(INKEY*) 

0 

>> 

13 

39 = 

< < 

0 

> > 




14 

NOCOND KEY 






15 

CONDEND 






-> 
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0 ( Screen code conversion words ) 
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2 BASE 0 HEX 

3 

4 CODE > BSCD 

5 A9 C, 03 C, 

6 HERE C4 C, 

7 C6 C, C3 C, 

8 NEXT , 

9 29 C, 7F C, 

10 0D C, C9 C, 

11 18 C, 69 C, 

12 2 ALLOT 38 C, 

13 SWAP ! 91 C. 

14 

15 


20 

c, 

( a a 
SETUP 

n — 

i 

C2 

c. 

D0 

c, 

07 C 

10 

c. 

03 

c, 

4C C 

B1 

C, 

C6 

c. 

48 C 

C9 

C, 

60 

C, 

B0 C, 

20 

C, 

B0 

c, 

06 C 

40 

c, 

4C 

c, 

HERE 

E9 

C, 

20 

c, 

HERE 

C4 

C, 

68 

C, 

29 C, 
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0 ( 

Utils: -Y/N 

1 


2 : 

-Y/N 

3 

BEGIN KEY 

4 

COND 

5 

89 = << 1 

6 

78 = < < 0 

7 

NOCOND 

8 

0 

9 

CONDEND 

10 

UNTIL ; 


11 

12 

13 

14 

15 


) 

( — f ) 

1 >> 

1 >> 
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0 ( Screen code 
1 



80 C, 

11 

c, 

Jj 

C8 C, 

D0 

C, 

4 

E6 C, 

C5 

c, 

6 

CODE BSCD) 


7 

A9 C, 

03 

c, 

8 

HERE 

C4 

C, 

9 

10 

C6 C, 
NEXT , 

C3 

c, 

11 

29 C, 

7F 

C, 

12 

0D C, 

C9 

C, 

13 

18 C, 

69 

c, 

14 

15 

2 ALLOT 

38 

c, 


conversion words ) 


C4 

c, 

91 

c, 

C4 C, 

D3 

C, 

E6 

C, 

C7 C, 

4C 

C, 

5 

( a a 

C; 

n — ) 

20 

C, 

SETUP 

5 

C2 

c, 

D0 

c, 

07 C, 

10 

C, 

03 

c, 

4C C, 

B1 

C, 

C6 

C, 

48 C, 

C 9 

C, 

60 

c, 

B0 C, 

40 

C, 

B0 

C, 

06 C, 

20 

C, 

4C 

c, 

HERE 

E9 

C, 

40 

C, 

HERE 
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0 ( Screen code conversion words ) 
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SWAP 

\ 

91 

c, 

C4 

c, 

68 

c, 

£9 

C, 

80 

C, 

11 

C, 

C4 

c, 

91 

c, 

C4 

C, 

ca 

C, 

D0 

C, 

D3 

C, 

E6 

C, 

C7 

C, 

E6 

C, 

C5 

C, 

4C 

C, 






6 

7 


: > SCD 

SP0 

DUP 1 

> BSCD ; 

: SCD) 

SP0 

DUP 1 

BSCD) ; 


10 

11 

IS¬ 

IS 

14 

15 BASE ! 


Screen: 57 

0 < Case statements; C 
1 

£ : CASEND 

3 DUP 6 = 

4 IF 

5 DROP COMPILE NOOP 

6 ELSE 

7 7 7PAIRS 

8 ENDIF 

9 HERE £- 9 OVER 1+ ! 

10 HERE OVER - 

11 5 - £/ SWAP C! ; 

12 

ISM PERMANENT PERMANENT )< ) 

14 

15 — > 
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5 

6 
7 

a 

9 
10 
11 
12 

13 

14 

15 


Screen: 58 

0 ( Case statements; SEL ) 

1 

£ » ( PERMANENT PERMANENT )( ) 

3 : (SEL) 

4 R 1+ DUP 2+ DUP R C@ 

5 2* 2* + R> DROP DUP >R SWAP 

6 DO I @ 3 PICK = 

7 IF I 2+ SWAP DROP LEAVE 

8 ENDIF 

9 4 /LOOP SWAP DROP @EX ; 

10 

11 M TRANSIENT TRANSIENT )( ) 

12 : SEL 7COMP 

13 7L0ADING COMPILE (SEL) HERE 

14 0 C, COMPILE NOOP [COMPILE] C 

15 8 ; IMMEDIATE ==> 


Screen: 56 

0 < Case Statements: CASE ) 

1 BASE @ DCX 

2 ’ < PERMANENT PERMANENT )( ) 

3 : (CASE) 

4 R C@ MIN -1 MAX 2* 

5 R 3 + + @EX 

6 R C@ 2* 5 + R> + > R ; 

7 M TRANSIENT TRANSIENT)( ) 

8 : CASE 

9 7COMP COMPILE (CASE) 

10 HERE 0 C, 

11 COMPILE NOOP 6 ; IMMEDIATE 

12 

13 : NOCASE 

14 6 7PAIRS 7 ; IMMEDIATE 

15 ==> 


Screen: 59 

0 ( Case statements: SEL ) 

£ : NOSEL 

3 8 7PAIRS [COMPILE! ’ CFA 

4 OVER 1+ ! 8 ; IMMEDIATE 

6 ; -> 

7 SWAP 8 7PAIRS , DUP C@ 1+ 

8 OVER C! [COMPILE] ’ 

9 CFA , 8 ; IMMEDIATE 

10 

11 : SELEND 

12 8 7PAIRS 

13 DROP [COMPILE] ] ; IMMEDIATE 

14 ’( PERMANENT PERMANENT )< ) 

15 —> 



E Screen: 60 

0 ( Case statements: COND ) 

1 ’ < TRANSIENT TRANSIENT )( ) 

£ : COND 

3 0 COMPILE DUP ; IMMEDIATE 

4 

5 : < < 

6 1+ [COMPILE] IF 

7 COMPILE DROP ; IMMEDIATE 

8 

9 : >> 

10 [COMPILE] ELSE COMPILE 
11 DUP ROT ; IMMEDIATE 

12 

13 : NOCOND 

1A COMPILE 2DR0P ; IMMEDIATE 

15 M PERMANENT PERMANENT )( ) ==> 


Screen: 
0 
1 
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5 

6 

7 

8 
9 

10 
11 
12 
13 
1A 
15 


63 


Screen: 61 

0 < Case statements: COND ) 

1 

2 ’( TRANSIENT TRANSIENT )< ) 



A : CONDEND 

5 0 DO 

6 [COMPILE] ENDIF 

7 LOOP ; IMMEDIATE 

8 

9 ’( PERMANENT PERMANENT )< ) 

10 

11 

12 

13 

1A 

15 —> 
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0 ( ValFORTH Video editor 

1 

£ BASE & DCX 
3 

A ’ ( XC! ) < 21 KLOAD ) 

5 ’( HIDCHR )( £A KLOAD > 

6 M > BSCD ) ( £6 KLOAD ) 

7 

8 
9 

10 
11 
12 
13 
1A 
15 
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0 ( Case statements: 

1 

£ : CASE: 

3 <BUILDS 

A SMUDGE !CSP 

5 [COMPILE] ] 

6 DOES) 

7 SWAP 2* + @EX ; 

8 



CASE: 


BASE ! 
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0 ( ValFORTH Video editor 
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2 
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A 
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7 
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10 

11 

12 

13 

1A 

15 


VI. 1 ) 




VI. 1 ) 


VI. 1 ) 
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0 ( ValFORTH Video editor 
1 

2 VOCABULARY EDITOR IMMEDIATE 

3 EDITOR DEFINITIONS 


Screen 
0 ( 


( X coord. 
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5 

0 

VARIABLE 

XLOC 

6 

0 

VARIABLE 

YLOC 

7 

0 

VARIABLE 

INSRT 

8 

0 

VARIABLE 

LSTCHR 

9 

0 

VARIABLE 

7BUFSM 

10 

0 

VARIABLE 

7PADSM 

11 

0 

VARIABLE 

7ESC 

12 

0 

VARIABLE 

TBLK 

14 




15 





< 

Y coord. 

) 

6 

( 

insert on? 

) 

7 

( 

last key 

) 

8 

< 

buf same? 

) 

9 

< 

PAD same? 

) 

10 

( 

coded char 

?) 

11 

< 

top block 

) 

12 




13 




14 


ss: 

= > 

15 


69 

ValFORTH Video editor 
UPCUR 

CBLANK YLOC 0 
1 - DUP 0 < 

IF DROP 15 ENDIF 
YLOC ! CSHOW ; 


DNCUR 

CBLANK YLOC 0 
1 + DUP 15 > 

IF DROP 0 ENDIF 
YLOC ! CSHOW ; 



( — ) 


—> 


Screen: 67 

0 < ValFORTH Video editor VI.1 ) 
1 

2 0 VARIABLE LNFLG ( oops flag ) 

3 4 ARRAY UPSTAT < update map ) 

4 15 CONSTANT 15 

5 32 CONSTANT 32 

6 128 CONSTANT 128 

7 5 32 * CONSTANT BLEN 

8 

9 : LMOVE 32 CMOVE ; 

10 : BOL 88 0 YLOC 0 1+ 32 * + ; 

11 : SBL 88 0 544 + ; 

12 : PBL PAD 544 + 

13 : PBLL PBL BLEN + 32 - ; 

14 : ! SCR 88 0 32 +• PAD 512 BSCD) ; 

15 — > 


Screen: 

0 ( ValFORTH Video editor VI.1 ) 

2 : LFCUR ( — ) 

3 CBLANK XLOC 0 

4 1 - DUP 0 < 

5 IF DROP 31 ENDIF 
XLOC ! CSHOW ; 

7 

6 ; RTCUR 

9 CBLANK XLOC 0 

10 1+ DUP 31 > V 

11 IF DROP 0 ENDIF 

12 XLOC ! CSHOW ; 

13 

14 : EDMRK 

15 1 YLOC 0 4 / UPSTAT ! ; ==> 


< AT L-SIDE?) 
( FIX IF SO ) 


< — ) 

( AT R-SIDE?) 
< FIX IF SO ) 


Screen: 68 

0 ( ValFORTH Video editor VI.1 ) 


1 

2 : CURLOC 

3 BOL XLOC 0 

4 

5 : CSHOW 

6 CURLOC DUP 

7 C@ 128 OR 

8 SWAP C! ; 

9 

10 : CBLANK 

11 CURLOC DUP 

12 C0 127 AND 

13 SWAP C! ; 

14 


< — ) 

; ( SCR ADDR ) 

( — ) 

< GET SCR ADDR ) 

< INVERSE CHAR ) 

< STORE ON SCR ) 

( — ) 

( GET SCR ADDR ) 

( STRIP MSB ) 

< STORE IT ) 


Screen: 

0 < ValFORTH Video editor VI. 1 ) 

2 : INTGL < — ) 

3 INSRT 0 0= < TOGGLE THE ) 

4 INSRT i ; ( INSRT FLAG ) 

CT 


6 : NXTLN 

7 CBLANK 0 XLOC ! 

8 CSHOW DNCUR ; 

9 

10 : CLREOL 

CBLANK !SCR 

12 1 LNFLG ! CURLOC 

13 32 XLOC 0 - 

14 ERASE CSHOW 

15 EDMRK ; 


( — ) 


( CLEAR ) 
< TO END ) 
( OF LINE) 
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2 

( ValFORTH Video editor VI. 1 

) 


0 

1 

£ 

( ValFORTH Video editor 

: HMCUR 

< — 

) 


: LNDEL 

3 

CBLANK 0 XLOC ! 




3 

CBLANK 3 LNFLG ! !SCR 

4 

0 YLOC ! CSHOW ; 




4 

4 YLOC 04/ 

5 





5 

DO 1 I UPSTAT ! LOOP 

6 

: BYTINS CBLANK 

( — 

> 


6 

YLOC 0 15 < 

7 

XLOC 0 31 < 

< SPREAD LN 

) 


7 

IF BOL 

8 

IF 




8 

DUP 32 + SWAP 

9 

CURLOC DUP 1+ 

( FROM, TO ) 



9 

15 YLOC 0 - 32 * 

10 

31 XLOC 0 - 

( # CHARS ) 



10 

CMOVE 

11 

<CMOVE 

< MOVE IT ) 



11 

END IF 

12 

END IF 




12 

BOL 15 YLOC 0 - 

13 

0 CURLOC C! 

( CLEAR OLD 

) 


13 

32 * + 32 ERASE 

14 

CSHOW EDMRK ; 

< CHARACTER 

) 

/ 

14 

CSHOW EDMRK ; 

15 


== 

y 


15 
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1 

£ 

( ValFORTH Video editor VI. 1 

) 

0 

1 

< ValFORTH Video editor 

: BYTDEL 

< — 

) 

1 

c! 

: BFSHW 

3 

CBLANK 

( CLOSE LINE) 

3 

PBLL 128 - < 

4 

XLOC 0 31 < 



4 

SBL 160 CMOVE ; < 

5 

IF 





6 

CURLOC DUP 

( FROM ADDR 

) 

6 

: BFROT 

7 

1+ SWAP 

( TO ADDR ) 


7 

PBL DUP 

8 

31 XLOC 0 - 

< # CHARS ) 


8 

BLEN + LMOVE 

9 

CMOVE 

< MOVE IT ) 


9 

PBL DUP 32 + 

10 

END IF 



10 

SWAP BLEN 32 - 

11 

0 CURLOC 

( BLANK OUT 

) 

11 

CMOVE PBLL 32 + 

12 

31 XLOC 0 - + C! 

< CHAR AT ) 


12 

PBLL LMOVE 

13 

CSHOW EDMRK ; 

( END OF LN 

) 

13 

BFSHW ; 

14 




14 

• 

15 


— 

-> 

15 
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0 ( 

1 

£ : 

ValFORTH Video editor 

VI. 1 ) 

LNINS 

( — ) 


CBLANK £ LNFLG ! !SCR 


4 

4 YLOC © 4 / 


5 

DO 1 I UPSTAT ! LOOP 


6 

YLOC 0 15 < 


7 

IF 


8 

BOL DUP 32 + 


9 

15 YLOC 0 - 32 * 


10 

<CMOVE 


11 

END IF 


12 

BOL 32 ERASE 


13 

14 

CSHOW EDMRK ; 


15 


==> 
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0 ( ValFORTH Video editor 
1 

£ : <BFROT 

3 PBLL DUP 

4 3£ + LMOVE 

5 PBL DUP 3£ + 

6 BLEN 32 - <CMOVE 

7 PBL DUP BLEN +• 

8 SWOP LMOVE 

9 BFSHW ; 

10 

11 : BFCLR 

12 PBLL 32 ERASE 

13 <BFROT ; 

14 

15 


VI. 1 ) 
( — ) 

FROM ) 
TO ) 
# CH ) 

—> 

VI. 1 ) 

< — ) 
, T ) 
MOVE ) 

( — ) 


VI. 1 ) 
< — > 


( — ) 

—> 


Screen: 78 

0 < ValFORTH Video editor VI. 1 ) 
1 

2 : BFCPY ( — ) 

3 CBLANK BFROT ( BRING LN ) 

4 BDL PBLL ( DOWN TO ) 

5 LMOVE BFSHW < BUFFER & ) 

6 CSHOW ; < ROTATE ) 

7 

8 : > BFNXT BFCPY NXTLN ; ( — > 

9 

10 : > BFLN BFCPY LNDEL ; ( — ) 

11 

12 : BFLN) ( — ) 

13 LNINS PBLL ( TAKE LINE) 

14 BOL LMOVE < UP FROM ) 

15 CSHOW <BFROT ; < BUFFER ) ==> 
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0 ( ValFORTH Video editor VI. 1 ) 



ARROW 

( 

3 

CBLANK 


4 

88 0 541 + DUP 0 



COND 



6 3341 = << 30 7453 >> 

7 7453 = < < 00 0000 > > 

8 NOCOND 

30 3341 

10 CONDEND 

11 3 PICK ! 

12 SWAP 2+ C! 

13 13 UPSTAT ! 

14 CSHOW ; 


Screen: 79 

0 ( ValFORTH Video editor VI. 1 > 
1 


4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 


BFRPL 

CBLANK 

!SCR 4 LNFLG ! 
PBLL BOL LMOVE 
<BFROT CSHOW 
EDMRK ; 


( — ) 

( TAKE LINE ) 
( UP TO SCR ) 
( & ROTATE ) 


TAB ( — ) 

CBLANK XLOC 0 DUP 
31 = IF DROP -1 ENDIF 
A + 4 / 4 * DUP 30 > 

IF DROP 31 ENDIF 
XLOC ! CSHOW ; 

—> 
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0 ( ValFORTH Video editor VI.1 ) 

2 : OOPS < — ) 

LNFLG 0 
IF 

CBLANK 

6 PAD 88 0 32 + 512 > BSCD 

CSHOW 
0 LNFLG ! 

9 ENDIF ; 

11 

12 

13 

15 ==> 
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0 i ValFORTH Video editor VI.1 ) 
1 

2 : RUB 

3 XLOC 0 0= NOT ( ON L-EDGE? ) 

4 IF 

LFCUR ( RUB IF NOT ) 

6 0 CURLOC C! 

7 CSHOW EDMRK 

8 ENDIF 

9 INSRT 0 

10 IF 

11 BYTDEL 

12 ENDIF ; 

13 

14 

15 ==> 
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0 ( ValFORTH Video editor VI. 1 ) 

2 : SPLIT ( — ) 

3 YLOC © 15 <> 

4 IF 

CBLANK 
LNINS 

BOL DUP 32 + SWAP 
XLOC 0 CMOVE 
BOL 32 + 

10 XLOC 0 ERASE 

11 CSHOW 

12 ENDIF ; 

13 

14 

15 


> 



VI. 1 ) 
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0 < ValFORTH Video editor VI.1 ) 
1 

2 : SCRSV ( — ) 

3 88 0 32 + PAD 512 BSCD) 

4 4 0 

5 DO 


6 


I UPSTAT 0 

7 


0 I UPSTAT ! 

8 


IF 

9 


PAD 128 I * + 

10 


TBLK 0 I + BLOCK 

11 


128 CMOVE UPDATE 

12 


ENDIF 

13 

LOOP 

14 

0 

INSRT ! 

15 

0 

XLOC ! 0 YLOC ! ; 
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0 ( ValFORTH Video editor 


1 

2 : PRVSCR -1 NWSCR ; ( — ) 

hJf 

4 : NXTSCR 1 NWSCR ; ( — ) 

5 

6 : SPLCHR 1 ?ESC ! ; ( — ) 

7 

8 : EXIT < — ) 

9 HMCUR 19 LSTCHR ! ; 

10 

11 : EDTABT < — ) 

12 0 UPSTAT 8 ERASE 

13 EXIT ; 

14 

15 —> 
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Screen: 88 



0 ( 
i 

ValFORTH Video editor 

< 
1—*• 

■ 

»-*> 

■w 

0 < 

ValFORTH Video editor 

VI. 1 ) 

1 

2 : 

SCRGT 

( — ) 

1 

P * 

*— « 

PTCHR 


< — ) 


4 0 


3 

INSRT 0 EDMRK 



4 

DO 


4 

IF BYTINS ENDIF 



5 

TBLK 0 



LSTCHR 0 127 AND 



6 

I + BLOCK 


6 

DUP LSTCHR ! 



7 

PAD 128 I * + 


7 

> SCD CURLOC C! 



8 

128 CMOVE 


8 

RTCUR XLOC 0 0= 
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C ’ NOOP CFA ] LITERAL 
ENDIF 

’ CREATE ! ; 


7 

8 
9 

10 
1 1 


13 

14 

15 


Screen: 100 
0 


4 

5 


6 

7 

8 
9 

10 

11 

12 

13 

14 


—> 


Screen: 98 

0 ( ValFORTH Video editor VI.1 ) 
1 

2 : LOCATE 

3 [COMPILE! ’ DUP NFA 1- DUP 
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DUP 4 PICK XOR 0 < 

4 







4 

IF 

5 


D= 

< 

d 

d — 

f > 

5 

2DR0P D0< NOT 

6 


D- D0= ; 





6 

ELSE 

7 







7 

D- D0< 

a 

: 

D0< 


( 

d — 

f ) 

8 

ENDIF ; 

9 


SWAP DROP 0< ; 





9 

10 







10 


11 

; 

D < 

( 

d 

d — 

f > 

11 


12 


D- D0 < ; 





12 


13 







13 


14 

2 

D> 

( 

d 

d — 

f > 

14 


15 


2SWAP D < ; 




—> 

15 


icreeris 122 





Screen: 125 

0 

< 

Double: DMIN 

DMAX 



> 

0 


1 







1 


2 


DMIN 

( 

d 

d — 

d ) 





20VER 20VER D> 







4 


IF 





4 


5 


2SWAP 





5 


6 


END IF 





6 


7 


2DR0P ; 





7 


8 







8 


9 

a 

>4 

DMAX 

( 

d 

d — 

d ) 

9 


10 


20VER 20VER D< 





10 


11 


IF 





11 


12 


2SWAP 





12 


13 


ENDIF 





13 


14 


2DR0P ; 





14 


15 






==> 

15 



D, M+ ) 

( d — ) 

>R 5 

< — d ) 

R ; 

< d — ) 

d n — d ) 

—> 

) 


BASE ! 


Screen: 126 
0 
1 
£ 

4 

5 

6 
7 
B 
9 

10 

11 

IS 

13 

14 

15 


Screen: 129 
0 
1 


4 

5 

6 
7 
B 
9 

10 

11 

i£ 

13 

14 

15 


Screen: 127 
0 
1 
2 

3 

4 

5 

6 
/ 

8 

9 

10 
11 
12 

13 

14 

15 


Screen: 130 
0 
1 


4 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 


Screen: 128 
0 
1 
£ 

4 

5 

6 
7 

a 

9 

10 

11 

IS¬ 

IS 

14 


Screen: 131 
0 


cr 

7 

8 
9 

10 
11 
12 

13 

14 

15 



) 


Screen: 


Screen: 135 


0 


0 < Utils: 

1 


1 

£ 


d 



3 

4 


4 

5 



6 


6 

7 


7 

8 


8 

9 


9 

10 


10 

11 


11 

12 


1 £ 

13 


13 

14 


14 

15 


15 

Screen: 133 


Screen: 136 

0 


0 < Utils: XR/W 
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AND - 



B5 C, 

00 

c, 

95 

c. 

01 

c. 

10 
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The tab titles included should be cut apart and inserted into the tabs 
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* fig EDITOR Locate before section II 

*1.1 EXTENSIONS Locate before section IV 


*1.1 GLOSSARY 

Locate before section V 
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Locate before section VI 










April, 1982 


Notes on Starting FORTH for the fig-Forth User 


A very popular book on the FORTH language called Starti ng FORTH has recently 
been published. The author, Leo Brodie, qives an excellent description of the FORTH 
language as implemented at FORTH, Inc. fig-FORTH differs from that implementation 
in some areas, and this document explains those differences. All comments that 
apply to fig-FORTH also apply to valForth. 


BLANK = BLANKS (page 285) 

Brodie describes the word BLANK. In fig-FORTH, this word is BLANKS. 

EMPTY-BUFFERS vs. EMPTY-BUFFERS (page 283) 

Brodie's word EMPTY-BUFFERS does not necessarily chanoe the buffers. In fia- 
FORTH, EMPTY-BUFFERS zero fills the buffers. 

CONTEXT vs. CONTEXT (page 247) 

These two words are not synonymous in the two versions. fia-FORTH uses a 
system of VOC-LINKS with CONTEXT, while FORTH, Inc. does not. 

EXIT = ;S (page 246) 

The word EXIT, as Brodie describes it, is identical in function to ;S in fia- 
FORTH. 

'S = SP@ (page 247) 

The word ‘S in FORTH, Inc.'s is SP@ in fig-FORTH. 

Not yet implemented in fig-FORTH. 

WIPE vs. CLEAR (page 84) 

Cllhk requires a screen number while WIPE clears the last screen edited. 
ABORT" (page 103) 

Not implemented in fig-FORTH. 


PROVIDED THROUGH THE COURTESY OF VALPAR INTERNATIONAL CORPORATION; 3801 East 34th Street 
Suite 105; Tucson, Arizona. Further distribution of this public domain document must in 
elude this notice. 






?DUP = -DUP (page 103) 




The word ?DUP in FORTH, Inc.’s is -DUP in fig-FORTH. 

?STACK vs. ?STACK (page 103) 

?STACK as described by Brodie as incorrect for fig-FORTH. ?STACK in fig- 
FORTH automatically aborts if there is a stack error. 



NEGATE = MINUS, DNEGATE = DMINUS (pages 123, 178) 

The words NEGATE and DNEGATE in FORTH, Inc.'s are MINUS and DMINUS respectively 
in fig-FORTH. 



+L00P vs. +L00P (page 143) 

Ihe word +L00P, as Brodie describes it, works differently for negative stepping 
than the +L00P in fig-FORTH. fig-FORTH always ends if the index equals the limit, 
even for negative stepping. 


PAGE = CLS (page 143) 

Brodie’s PAGE is called CLS in valForth. It has no equivalent in fig-FORTH 

U/MOD = U/ (page 177) 

Brodie's U/MOD is U/ in fig-FORTH. 

CREATE vs. CREATE (page 209) 

Brodie's CREATE works differently from CREATE in fig-FORTH. A word using CREATE 
in fig-FORTH must unSMUDGE the header before the word can be used. The ";" unsmudges 
headers automatically. In addition, Brodie's CREATE and fig-FORTH CREATE move different 
default values in the CFA of the created header (see below). 



CREATE = <BUILD$ (page 209) 

In Brodie 1 s chapter 11 on extending the compiler, he uses the series CREATE... 
DGES>. In fig-FORTH, this should be <BUILDS...D0ES>. 


NUMBER vs. NUMBER (page 285) 

Brodie's NUMBER only converts numbers to double length if the double word set 
is loaded. fig-FORTH always converts numbers to double length. 


PROVIDED THROUGH THE COURTESY OF VALPAR INTERNATIONAL CORPORATION; 3801 East 34th Street, 
Suite 105; Tucson, Arizona. Further distribution of this public domain document must in¬ 
clude this notice. 



>IN = IN, H - DP (page 247) 


The variable >IN and H in Brodie's FORTH are IN and DP respectively in 
fig-FORTH. 


VARIABLE vs. VARIABLE (page 209) 

T ne word VARIABLE, as Brodie describes it, accepts no value from the stack. 
fig-FORTH, on the other hand, does expect an initialization value from the stack. 


' vs. ' (page 215) 

These words are not synonymous. 1 in Brodie is the same as ' 2- in fig-FORTH 
(or, more properly, 1 CFA). 
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Suite 105; Tucson, Arizona. Further distribution of this public domain document must in¬ 
clude this notice. 
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Control Structures 


Stack inputs and outputs are shown; top of stack on right. 













7-bit ascii character value 








Stack Manipulation 








'ake copy of second item on top. 

Duplicate only if non-zero. 

Move top item to "return stack" for temporary 

Copy top of return stack onto stack. 


Number Bases 




Arithmetic and Logical 


























/MOD 



















































Add double-precision numbers. 

Modulo (i.e. remainder from division). 

Pivide, giving remainder and quotient. 
Multiply, then divide (nl*n2/n3), with double' 

True if too number zero (i.e. reverses 


Comparison 




























' True if top number zero (i.e. reverses 




Memory 




















Print byte at address. 






Add second number on stack to contents of address 



Move u bytes in memory from head to head. 









Fill u bytes in memory with zeroes, beginning at 





DO...LOOP do: ( end+1 start -- ) 
( -- index ) 

( -- index ) 

( -- index ) 

LEAVE 

00... +L00P do: ( end+1 start -- ) 
+loop: ( n — ) 

00... /LOOP do: ( end+1 start -- ) 
/loop: ( u — ) 

IF...(true) if: { f -- ) 

...ENDIF 

...ELSE if: (f - ) 

...(false) 

...ENDIF 

BEGIN... until: f - ; 

UNTIL 

BEGIN... while: (f -- ) 

WHILE 

...REPEAT 


Set up loop, given index range. 

Place current index value on stack. 

Used, to retrieve index after a >R. 

Place index of outer DO-LOOP on stack. 

Terminate loop at next LOOP, +L00P, or /LOOP. 
LEAVE if ’TERMINAL is true (i.e. pressed). 

Like DO...LOOP, but adds stack value (instead of 
always * 1 *) to index. 

Like DO... +L00P, but adds unsigned value to 
index. 

If top of stack true (non-zero), execute. (Note: 

Forth 78 uses IF...ELSE...THEN.) 

Forth 78 uses BEGIN...END.. 

ally to BEGIN. (Note: Forth 78 uses BEGIN...IF 
...AGAIN.) 


Terminal Input - Output 


( n - ) 


( n fieldwidth -- ) 




( d fieldwidth -- ) 



SPACE 



( n « ) 

DUMP 

( addr' u -- ) 


( addr u — ) 

COUNT 

( addr -- addr+1 u ) 

7TERMINAL 




EMIT 




WORD 



Input - 

Output Formating 


( addr -- d ) 













Disk Handling 


( screen -- } 








( — addr ) 


i -- addr ) 





EMPTY- 



Defining Words 

: xxx 





xxx ( n — ) 

CONSTANT 

xxx: t. -- addr ) 


xxx: ( -- n ) 



<BUILDS.. 

. does: ( -- addr ) 

D0ES> 

LABEL xxx 

( -- addr ) 


Print number. 

Print number, right-justified in field. 

Print double-precision number 

Print double-precision number, right-justified in 

Type n spaces. 

Type string of u characters starting at address. 

Read key, put ascii value on stack. 

Read n characters (or until carriage return) from 
input to address. 

Read one word from input stream, jsing given 


Start output string. 

Convert next digit of double-precision number and 
add character to output string. 

number to output string. 


System constant giving disk block size in bytes. 
System variable containing current screen number. 

Erase all buffers. 


Create a variable named xxx with initial value n; 

Begin definition of assembly-language primitive 
Used to create a new defining word, with execution- 

time routine for this data type in higher-level Forth 
Creates a header xxx which when executed returns its 
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Vocabularies 

CONTEXT ( — addr ) 

CURRENT ( — addr ) 

FORTH 

ASSEMBLER ( — ) 

DEFINITIONS ( - ) 

VOCABULARY ( — ) 

XXX 


Returns address of pointer to context vocabulary 

Returns address of pointer to current vocabulary 

Main Forth vocabulary (execution of FORTH sets 
CONTEXT vocabulary). 

Assembler vocabulary; sets CONTEXT. 

Sets CURRENT vocabulary to CONTEXT. 

Create new vocabulary named xxx. 


Miscellaneous and System 


FORGET xxx ( - ) 

ABORT 

'xxx 

PAD ( - addr ) 


Begin comment, terminated by right paren on same 
Forget all definitions back to and including xxx. 

Returns address of scratch area (usually 128 bytes 

System variable containing offset into input buffer. 
Used, e.g^, by WORD. 


va/FORTH Memory Map 


STANDARD DISPLAY 
MEMORY AREA 







GENERAL BUFFER 


DP 


LIMIT 


FIRST 

$0700 

$0600 


WORD BUFFER 



DICTIONARY 


DISK BUFFERS 

2112 BYTES DECIMAL 
(RELOCATABLE) 


KERNEL 


BOOT CODE 



PAD 

$0080 BYTES 


USE 

PREV 

0 +ORIGIN 


$05FF 

$057E 


ATARI FLOATING POINT 





$0480- 

RP- 
$ 0100 - 
$00FF 
$00D4- 

Z PAGE 


USER AREA 




RETURN STACK _. 

—""TERMINAL BUFFER 


ATARI FLOATING POINT 


UP N IP W 


STACK $00BC-$0080 


-UP 

IN 

-TIB 



Atari is a trademark of Atari, tnc a division of Warner Communications 


- o 
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Graphics and Color 

POS, ( x y — ) 

( addr count — ) 

(G"> 

( addrl addr2 count -- 

BSCD> 

( - addr ) 

1 LVNDR 

RDORNG — 3 PRPLBL — 


SO. ( chan freq dist vol 

FILTER! ( n -- ) 


Color register nl (0...3 and 4 for background) 
{0-14, even). 

display preclear. In addition, this GR. will 

Same as 3ASIC POSITION or POS. Positions the 
invisible cursor if in a split display mode, 

3 L0T, but without changing display data. 

PLOT 1 ted, DRAWTO'ed or POSIT'ed point to x y, 

Used in the form G" ccccc". Sends text cccc to 
text area in non-0 Graphics mode, starting at 

specified by last COLOR command. 

Positions the cursor at x y and fetches the 
data from display at that position. Like 

Leaves the x and y coordinates of the cursor 

Converts cl + >om display screen code to ATASCII 
) Moves count bytes from addrl to addr2, 

ATASCII on the way. 















YLWGRN 






-- 14 







Suggested mnemonic: Catfish Don't Vote 


Text Output and Disk Preparation 


S; 

ASCII 

FORMAT 






Debugging Utilities 


OECOMP 

XXX 

Does a decompilation of the word xxx if it can 
be found in the active vocabularies. 

CDUMP 



fDUMP 


A numerical dump in the current base for at 
least n characters. (Will always do a multiple 

(FREE) 

( - n ) 

Leaves, number of bytes between bottom of display 







STACK 











Prints the current base, in decimal. Leaves 

CFALIT 

xxx ( -- cfa (executing)) 
xxx ( -- (compiling)) 

Gets the cfa (code field address) of xxx. If 
executing, leaves it on the stack; if compiling. 

Floating Point 


FCONSTANT 

xxx ( fp — ) 
xxx ( — fp ) 

The character.string is assigned the constant 

FVARIABLE 

xxx (fp -- ) 
xxx: ( addr -- ) 

The character string xxx is assigned the 
initial value fp. When xxx is executed, the 


( fpl - fpl fpl ) 

Copies the fp number at top-of-stack. 

FOROP 


Discards the fp number at top-of-stack.) 

FOVER 


FLOATING 

xxx ( — fp ) 

Attempts to convert the following string, xxx. 

FP 

xxx { -- fp ) 




Fetches the -fp number whose address is at 
top-of-stack. 











( fp2 fpl - fp3 ) 



( fp2 fpl - fp3 ) 


F* 

( fp2 fpl - fp3 ) 

fpl, with their product, fp3. 




FLOAT 








as indicated, with its integer equivalent. 






Replaces fpl with its base 10 decimal logarithm. 




EXP10 


















Operating System 
























{ n — bl b2 b3 ) 
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valFORTH 6502 Assembler 

ASSEMBLER ( — ) 


CODE xxx 




END-CODE 



xxx ( — ) 

;CODE 


Control Structures 



ELSE, 






UNTIL, 


WHILE, 




AGAIN, 


Parameter Passing (These 

NEXT 












POPTWO 








Aliases 

NXT, * NEXT JMP, 

PSHA, - PUSHOA JMP, 
PUTA, = PUTOA JMP, 


Calls up the assembler vocabulary for subsequent 
assembly language programming. 

Enters the new word "xxx" into the dictionary 
as machine language word and calls up the 
assembler vocabulary for subsequent assembly 
language prograwning. 

CONTEXT vocabulary to the same as the CURRENT 
vocabulary. 

A commonly used synonym for the word C; above. 
The word C; is recommended over END-CODE. 

the assembler vocabulary for subsequent assembly 
When the assembler is loaded, puts the system 


Begins a machine language control structure 

value for the ELSE, or ENDIf, clauses below. 

"laq" can be EQ , NE , CC , CS , VC , VS , 

ELSE,..if-false..ENDIF,..all... 

Used to terminate an IF, control structure 

where "flaa‘ ! is one of the 6502 statuses: EQ , 
Used to terminate a post-testing BEGIN, clause 

Used to terminate a pre-testing BEGIN,..WHILE, 

executed, "he parameter stack is left unchanged. 
Pushes a 16 bit value to the parameter stack 

parameter stack with the 16 bi£ value whose 






















CLI, 













, JMP, 


LDX, 







PLA, 



























XL, 
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EDITOR 1.1 COMMAND SUMMARY 

Entering the Edit Mode 


WHERE 




Cursor Movement 




t 

«- 




Editing Commands 






















Buffer Management 


























Changing Screens s >d i 













Special 














Screen 

Management 





r r c •' Sf.rct r >s n't in'; 




* EDITOR 1.0 COMMAND 
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